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IDENTIFICATION 


PRODUCT CODE:  AC=-A797B-MC 

PRODUCT NAME: CZTECBO TMO3-TE16/TU77 BASIC FUNCTION TEST 
DATE CREATED: 15 NOV 78 

MAINTAINER: DIAGNOSTIC ENGINEERING 

AUTHOR: J. G. ADAMS 


THE INFORMATION IN THIS DOCUMENT IS wet TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 

NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A 
LICENSE AND MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE 
TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
THE USE OR RELIABILITY OF ITS SOFTW4RE ON EQUIPMENT THAT IS 
NOT SUPPLIED BY DIGITAL. 


COPYRIGHT (C) 1977,1978 BY DIGITAc EQUIPMENT CORPORATION 
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THIS PROGRAM IS INTENDED TO TEST ALL OF THE BASIC 
FUNCTIONAL LEVEL OPERATIONS OF THE TMO3/TE16 


MAG TAPE SYSTEM. 


ALL FUNCTIONS; WRITE, READ, SPACE, 


ERASE, REWIND, ETC; WILL BE TESTED. IN ADDITION TO THE 
TMO3/TE16 TESTS, THE RH WILL BE TESTED SEPARATELY IN 
SO FAR AS IT IS POSSIBLE TO SEPARATE THE RH FROM THE 
TMO3/TE16 ITSELF. 


REQUIREMENTS (HARDWARE ) 


ANY PDP11 PROCESSOR 


8K OF CORE 


TMO5 MAGTAPE CONTROLLER 
MASS BUS CONTROLLER 
TE16 MAG TAPE TRANSPORT 


LOADING PROCEDURE 


A 

B. 

+ CONSOLE TTY 
+ 

F 


USE STANDARD BINARY LOADING PROCEDURE 
STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAYBE USED: 200(8) AND 210(8) 


A. 200(8): 


B. 210(8): 


STARTING AT THIS ADDRESS WILL CAUSE THE PROGRAM 
IDENTIFICATION TO BE PRINTED FOLLOWED BY 
REQUESTS FOR THE VARIOUS PARAMETERS NEEDED 

BY THE PROGRAM. 


THIS ADDRESS IS INTENDED FOR USE AS A RESTART ONLY 
AND WILL USE THE CURRENT PARAMETER VALUES. 


**NOTE 4% ALSC SECTION 5-CONSOLE SWITCH SETTINGS 


TYPE 


*“C TO RESTART PROGRAM (@200) 


SEQ 0003 
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AUTOMATIC MODE OPERATION 


IF THIS PROGRAM IS LOADED AND RUN IN AUTOMATIC (CHAIN) MODES 
DEFAULT RESPONSES TO OPERATOR REQUESTS ARE USED, AND ALL AVAIL- 
ABLE TMO3/TE16 COMBINATIONS ARE TESTED. ADDITIONALLY THE SOFTWARE 
SWR IS INVOKED WITH A SWITCH SETTING OF 000000 

IF LOADED VIA ACT11 CHAIN MODE. 


**EXCEPTION: IF THIS PROGRAM IS LOADED VIA TMDP CHAIN MODE THE 
PROGRAM WILL NOT TEST TMO3 DRIVE #0, TE16 SLAVE 40. 


**NOTE: IN OREDER TO CHANGE THE SETTING OF THE SOFTWARE SwWR, 
SET LOC: 176(SWREG:) TO THE DESIRED SETTING. 


** NOTE: THIS PROGRAM CONTAINS AN OPERATOR ASSISTED SUBTEST.THIS 
SUBTEST IS NOT EXECUTED IN CHAIN MODE.TO RUN LOAD THE 
PROGRAM IN DUMP MODE. 


SAMPLE START AT 200 


NOTE: DEFAULT RESPONSES ARE SHOWN IN ANGLE BRACKETS <>, 
OPERATOR RESPONSES ARE SHOWN IN PARENTHESES (). AND 
LOCATIONS CONTAINING THE DEFAULT ARE SHOWN IN (7. 

TO INVOKE THE DEFAULT RESPONSE TYPE (CR) .NON STANDARD 
MODE FOR JUMPERS IS M8931 (W2-IN) .M8937(W2-IN,W1-OUT). 


PARAMETER REQUEST: <DEFAULT> (RESPONSE) CLOCATION: J 


TMO35=TE16/TU77 BASIC FUNCTIONS TEST (DZTEC-8) 
TYPE “C TO RESTART 


REGISTER START: <172440> (CR) CREGS:] 

VECTOR ADDRESS: <224> (CR) CVECT:] 

IS CONTROLLER JUMPERED IN NON-STANDARD MODE 

TYPE 2 FOR ~ a Mage oy OR CR FOR STANDARD: <3> [JUMPER:] 
DRIVE NUMBER: <0> ( CDRVN: J 


SLAVE NUMBER: <0> A CSLVN:J 
SERIAL NO: 12345 
RH ONLY (NO=0,YES=1): <0> (0) [RHOF :] 


F THE SOFTWARE SWR IS INVOKED: 
SWR = <Q00000> NEW = (CR) 


SEQ 0004 
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CONSOLE SWITCH SETTING 


CONTROL : 
1) CONTROL G <*G@>>; 


SELECTS THE SOF TWARE SWR AND ALLOWS THE USER TO SELECT NEW SWITCH SETTINGS. 


THE MACHINE WILL THEN TYPE: SWR=XXXXXXNEW= 
WHERE: XXXXXX IS THE OCTAL CONTENTS OF THE SOFTWARE Swe. 
AFTER THE ‘"NEW="" HAS BEEN TYPED THEN THE OPERATOR CAN DO ONE 
OF THE FOLLOWING AT THE TTY: 
A) hg 3 A NEW SWITCH SETTING 
B) IF A <CR> IS THE FIRST KEY DEPRESSED THE SOFTWARE SWITCH 
REGISTER CONTENTS WILL NOT BE CHANGED. 


2) CONTROL A <“*A>; 
ALTERNATES USAGE OF SWR FROM HARDWARE TO SOFTWARE & VICE VERSA, 


3) CONTROL C <*C> 
RESTARTS PROGRAM AT 200 


4) CONTROL U <“*U>; 
DELETES ALL CHARACTERS TYPED IN RESPONSE TO A REQUEST. 


ALL SWITCHES EXCEPT 5-9 ARE USED AND THE — OR DEFAULT, 
RUN IS DONE WITH ALL SWITCHES SET TO ZERO (0). 


ALL HARDWARE SWITCHES ARE DYNAMIC, AND MAY BE CHANGED AT ANY TIME. 


SW75(100000):  1=HALT ON ERROR 
O=CONT INUE 

SW14(040000): 1=LOOP ON ERROR (SCOPE: RH TESTS ONLY) 
O=CONT INUE 

SW13(020000): 1=DO NOT PRINT ERRORS 


O=PRINT ALL ERRORS 
SW12(010000) : 1=CONTINUOUS CYCLE 

O=HALT AT END OF PASS 
Sw11(004000) : 1=INHIBIT ITERATION 

O=DO ALL ITERATIONS PER TEST 
S$W10(002000) : 1=HALT AT END OF CURRENT TEST 

O=CONT INUE 
Sw9-5: N/A 


SwW4-0: SELECT TEST NUMBER::00=ALL TESTS 


THE USE OF SWO-4 IS 70 ALLOW SELECTION AND CONTINUOUS 
EXECUTION OF ANY TEST. THE TEST SELECTION MAY BE CHANGED AT 
ANY TIME, HOWEVER IT IS ADVISABLE TO USE Sw10 TO STOP THE 
PROGRAM AT THE END OF THE CURRENT TEST BEFORE SELECTING A TEST. 


SEQ 0005 
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6. ERROR PRINTOUTS 


THE ERROR PRINTOUTS FOR EACH TEST WILL APPEAR IN THE SAME 

GENERAL FORMAT. THE FIRST LINE WILL ALWAYS SHOW THE TEST NUMBER AND ITS 
TITLE. THE SECOND LINE WILL BE AN EXPLANATION OF THE ERROR. THE 
FOLLOWING LINES WILL SHOW THE APPROPRIATE REGISTER OR ADDRESS 

VALUES THAT ARE AFPLICABLE TO THE INDIVIDUAL TEST 


EXAMPLES: 


1. THIS EXAMPLE SHOWS A TYPICAL ERROR PRINTOUT FOR THE WRITE 
READ TEST: A WRITE CRC ERROR OCCURRED ON SLAVF 6. 


FT15: WRITE=READ TEST 
WRITE ERROR NRZ 


CS1 WC BA FC CS2 ER TC 
144260 000000 015650 000000 000103 9600 100000 101306 


2. THIS EXAMPLE SHOWS A IYPICAL SPACE ERROR: 
THE FC IS NOT ZERO AT THE END OF THE OPERATION. 


FT14:SPACE TEST 
SPACE REVERSE ERROR NRZ 


CS1 WC BA FC CS2 DS ER TC 
144230 177700 017162 177740 000114 150600 001000 161700 


“ 3. THIS EXAMPLE SHOWS A SPACE OPERATION WHICH RESULTED IN 
INCORRECT POSITIONING. SHOULD BE AT RECORD 20, IS AT RECORD 22. 


FT14: SPACE TEST 
POSITION ERROR: 
REVERSE ERROR EXPT:20 RCVD:22 


DS 
15 
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7. OPERATION 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE SIMPLE 
AND REQUIRE ONLY A FEW STEPS: 


1. LOAD ADDRESS 200 OR 210 
ce. SET SwITCHES FOR DESIRED TEST CYCLE 
x*xe*REFER TO SECTION 5 FOR DYNAMIC LOADING 
OF SOFTWARE SWITCH REGISTER. *** 
3. PRESS START 
4. ENTER APPROPRIATE RESPONES TO THE TTY REQUESTS 


ALL HARDWARE SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY 

TIME. THE NORMAL, OR DEFAULT, OPERATING SEQUENCE IS ALL 

SWITCHES DOWN (ZERO). THE END OF EACH PASS IS NOTED BY A 

MESSAGE STATING END OF PASS AND THE NUMBER OF THAT PASS. 

**x*FOR THE DYNAMIC LOADING OF THE SOFTWARE SWITCH REGISTER REFER TO SECTION 5 *x«« 


SINGLE TEST SELECTION: (SWO-SW4) 


WHEN SWO-4 ARE SET TO ZERO (00) THE SCHEDULAR WILL 
EXECUTE ALL OF THE TESTS IN SEQUENCE . IF SwO-4 IS 

SET TO SOME SPECIFIC TEST NUMBER THAT PARTICULAR TEST 
WILL BE EXECUTED CONTINUOUSLY. ANY TEST MAY BE SINGLE 
SELECTED IN ANY ORDER; HOWEVER, THE BEST WAY TO AFFECT 
THE CHANGE IS TO USE SW10 TO HALT THE CURRENT TEST, THEN 
CHANGE NUMBER AND PRESS CONTINUE. 
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SUBTEST SUMMARIES 


THE FOLLOWING IS A LIST OF ALL TESTS IN THEIR PROPER SEQUENCE. 
A BASIC DESCRIPTION OF EACH TEST IS PROVIDED TO AID IN UNDERSTANDING 
OF THE ERROR MESSAGES ASSOCIATED WITH EACH ONE. 


A. 


% 


e 


* 


} 
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RH TESTS: THE FIRST = yy TESTS WILL PERFORM BASIC RH 
OPERATION 


POSSIBLE WITHOUT REQUIRING 


AS FAR AS IS 
THE TMOS“TE16/TU?7 ITSELF. (SEE RH ONLY OPTION; PAR 7) 


FT: 


RH ADDRESSING: THIS Beek WILL ASSURE THAT THE 


RESPOND WITHOUT CAUSING A BUS 
TRAP TO ALL TMO2 REGISTER ADDRESS 
IN SEQUENCE STARTING AT THE ADDRESS 
OF CS1 ENTERED BY THE OPERATOR. 


FT2: RH REGISTER BITS "ET atte a THIS TEST WILL ASSURE THAT 


FT3: RH INITIALIZE: 


FT4: SILO TEST 1: 


FYS: SILO TEST 2: 


FT6: SILO TEST 3: 


FT7: SILO TEST 4: 


FT10: SILO TEST 5: 


L BITS OF THE RH WRITE/READ REGISTERS 
CAN BE SET AND RESET. 


nag WILL ASSURE THAT A RH INITIALIZE 


T 5 OF CS2=1) WILL INDEED CLEAR 
THE RH ERRORS. 


THIS TEST WILL ASSURE THAT A READ FROM 
AN EMPTY SILO WILL CAUSE DLT TO SET. 


THIS TEST WILL ASSURE THAT BOTH THE 
IR AND OR BITS WILL CORRECTLY RESPOND 
TO LOADING OF THE SILO WITH ALL ZEROS 
AND THEN A WORD OF ALL ONES. 


THIS TEST WILL WRITE AND THEN READ 

THE ENTIRE SILO TO ASSURE THAT DATA CAN 
BE PROPERLY FILLED AND READ. ALSO THE 

PROPER STATUS OF IR AND OR ARE CHECKED. 


THIS TEST WILL ASSURE PROPER RH11 
RESPONSE TO SILO OVERFLOW. 


THIS TEST WILL ASSURE SILC RESET 
BY RH11 INITIALIZE. 


xxee NOTE: SILO TESTS (FI4-FT10) ARE FOR THE RH11 ONLY, ***** 


SEQ 0008 
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B. TMOS-TE16/TU77 BASIC FUNCTIONS: THE FOLLOWING FOURTEEN (14) 
TESTS WILL ASSURE OPERATION OF THE 
MAG TAPE BASIC FUNCTIONS. 


THIS TEST WILL ASSURE THAT THE NOP 
FUNCTION EXECUTES WITH NO ERROR. 


THIS TEST WILL ASSURE THAT THE REWIND 
FUNCTION WILL POSITION THE TAPE TO 
BOT WITH NO ERROR. 


FT17: NOP TEST: 


FT12: REWIND TEST: 


FT75: WRITE/READ TEST: 


1. 
- 
Bis 
4, 


ISSUE A REWIND COMMAND 
AWAIT PIP RESET (MOTION STOPPED) 
a THAT NO ERROR OCCURED 


THIS TEST WILL ASSURE THAT 
THE UNiT UNDER TEST CAN WRITE AND 
READ IN ALL DENSITIES (FOR BOTH PE AND NRZ). 


DATA READ 


FT14: SPACE TEST: 


NOW Sw 
° > . 


_ REWIND TO BOT 


WRITE 100 RECORDS 
A, ALL ONES DATA 
B, 200 FRAMES 


C, 200 BPI; ODD 
CHECK FOR ERRORS ON EACH 


RECORD 
- READ REVERSE THEN FORWARD A. B, RECORDS 


CHECK FOR ERRORS ON EACH R 


: ~ Nga STEPS 2 THRU 5 FOR 556,800,1600 BP] 


IS NOT CHECKED; ONLY THE FUNCTION IS TESTED, NOT THE MEDIUM. 


THIS TEST WILL ASSURE THAT PROPER 
POSITIONING IS MAINTAINED BY BOTH 
SPACE FORWARD AND REVERSE. 


WI Ww 
* 8 


- NOW SPACE FORWARD 76 R 


. REWIND TO BOT 
. WRITE 100 RECORDS 


A. EACH RECORD IS ONE FRAME LARGER THAN THE LAST. 
THIS WILL ALLOW FOR POSITION CHECKING BY RECORD SIZE. 


- EACH RECORD IS Soot aia” head 


READ REVERSE 1, THE FRAME COUNT 
SHOULD BE 100. 

THIS IS THE SIZE OF THE FIRST RECORD. 
RECORDS AND READ 
FORWARD 1, THE FRAME COUNT SHOULD BE 177. 
THIS IS THE SIZE OF THE NEXT TO LAST RECORD. 


7. CONTINUE THE SPACE AND READ (DECREMENTING THE RECORD COUNT EACH TIME) 


Ole a 


UNTIL ALL POSITIONS HAVE BEEN CHECKED. IF POSITION IS LOST; TEST ENDS. 
; — STEPS 1 THRU / FOR PE. 


SEQ 0009 
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FT15: ERASE TEST: THIS TEST WILL ASSURE THAT THE ERASE 
FUNCTION WILL INDEED ERASE TAPES. 


REWIND TO BOT 

ISSUE 200 ERRASE COMMANDS. 
ASSURE NO ERRORS FOR EACH COMMAND. 
REWIND TO BOT. 
ve A READ FORWARD COMMAND. 

THE T SHOULD MOVE FORWARD UNTIL 
STOPPED BY OPI (APPROX 25 FT). 
= NO ERRORS OTHER THAN OPI. 


FT16: TAPE MARK sarhiestar ew TEST WILL ASSURE THAT 


1. 
is 
5. 
‘i. 
De 
6. 
a 
8. 
9. 
; 


E MARK CAN BE WRITTEN AND READ 


:N BOTH PE AND NRZ. 


REWIND TO BOT. 

ISSUE A WRITE TAPE MARK COMMAND. 

ASSURE NO ERRORS. 

ASSURE THAT TAPE MARK STATUS IS SET 

IN PRIVE STATUS (BIT 2). 

READ REVERSE. 

ASSURE THAT TAPE MARK IS SET 

ASSURE THAT NO ERRORS OTHER THAN FCE OCCURED. 
READ FORWARD. 

REPEAT STEPS 6 AND 7 


QO. REPEAT STEPS 1 THRU 9 FOR PE. 
END 


FT17: TAPE MARK SPACE TEST: THIS TEST WILL ASSURE THAT 
SPACING WILL BE TERMINATED BY RECOGNITION 
OF TAPE MARK BOTH IN PE AND NRZ. 


1. 


2 


™:20 REC 


Ons 


~- OOO™N 


S: 


REWIND TO BOT. 
WRITE THE FOLLOWING PATTERN OF 
TAPE MARKS AND DATA RECORDS: 


™™:40 RECS: TM:60 RECS:TM:100 RECS: TM: 


ASSURE NO ERRORS. 

ASSURE THAT TAPE MARK STATUS IS SET FOR TM WRITES. 
NOW SPACE REVERSE 200 RECORDS. 

THE SPACE OPERATION SHOULD STOP ON EACH 

TAPE MARK IT FINDS. THEREFOR 5 SPACE 

COMMANDS ARE ISSUED TO COVER THE ENTIRE 

PATTERN WRITTEN ON TAPE. 

BOT SHOULD NEVER BE REACHED AND THE 

FRAME COUNT WILL REFELCT 

THE NUMBER OF RECORDS BETWEEN 


TAPE MARKS. 
REPEAT STEP 6 IN THE Agee y DIRECTION. 
ASSURE NO ERRORS OTHER THAN FCE. 


REPEAT STEPS 1 *HRU 8 FOR PE 


0. END 


SEQ 0010 
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FT20: WRITE CHECK TEST: BOTH WRITE CHECK FORWARD AND REVERSE ARE 
TESTED IN BOTH PE AND NRZ. 


FT21: ERASE HEAD TEST: 


FT22: BUFFERED COMMAND: 


CONOUISW Rom 


REWIND TO BOT. 

WRITE A 400 FRAME RECORD USING DATA 
PATTERN 3 (125125). 

ASSURE NO ERRORS OCCURED. 

ISSUE A REVERSE WRITE CHECK COMMAND. 
ASSURE NO ERRORS OCCURED. 

REPEAT STEP 5 FOR A FORWARD WRITE CHECK. 
ps STEPS 1 THRU 6 FOR PE. 


THIS TEST WiLi ASSURE THAT THE 
ERASE HEAD ITSELF IS OPERATING. 


1. 
cs 


6 
4 


REWIND TO BOT. 

WRITE 2 RECORDS OF 800(10) FRAMES 
EACH. EACH RECORD WILL BE 1 INCH 
OF TAPE. DATA IS NOT ALL ONES. 
REWIND TO BOT. 


- NOW WRITE A 400(10) FRAME RECORD. 


THIS RECORD WILL BE ONE HALF 

INCH OF TAPE. THE ERASE HEAD 
SHOULD CLEAR THE REMAINDER OF THE 
FIRST RECORD (ONE HALF INCH). 
REWIND TO BOT. 


. NOW READ THE SHORT FIRST RECORD. 


IT SHOULD BE 400(10) ak 
NOW READ THE SECOND RECOR 
IT SHOULD BE STILL B00(10)" 


FRAMES. 
- IF THE SECOND RECORD IS TOO LONG 


THE ERASE HEAD DID NOT FUNCTION OR 
IT IS IN THE WRONG POLARITY. 


10. END 


THIS TEST WILL ASSURE THAT THE 
TMO2 WILL ACCEPT AND EXECUTE ANOTHER 


COMMAND WHILE ITS SELECTED SLAVF IS REWINDING. 


ae 


REWIND TO BOT. 


co ISSUE 5 -LONG WRITE COMMANDS TO ASSURE 


WwW 
° 


wo 


BEING O 

ISSUE A REWIND COMMAND. 

AS SOON AS DRIVE READY BECOMES SET, 

ISSUE ANOTHER WRITE COMMAND. 

THE NEXT DRIVE READY SHOULD BE AFTER THE 
TAPE HAS REACHED BOT AND EXECUTED THE 
BUFFERFD WRITE COMMAND. 

ig NO ERRORS OCCURED. 


SEQ 0011 
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FT23: READ IN PRESET: 


(THIS TEST IS ONLY PERFORMED IF THE SELECTED SLAVE IS ZERO (0). 


M 1 
MACY11 30A(1052) 21=-DEC-78 13:15 PAGE 12 


THIS TEST WILL at ti THAT UNIT 0 
IS REWOUND AND SET TO 800 BPI NORMAL. 
(ONLY IF SLAVE O IS "SELECTED). 


1. ISSUE A WRITE COMMAND TO ASSURE 
BEING OFF BOT. 
2. ISSUE THE READ-IN PRESET COMMAND. 
3. AWAIT MOTION STOP. 
4. ASSURE THAT BOT WAS REACHED. 
5. ASSURE THAT THE TAPE CONTROL REGISTER 
‘ — TO 800 BPI,NORMAL ,ODD. 


F724: AUTOMATIC DENSITY ae eet “WRITE NRZ,READPF : 


FT25: AUTOMATI. DENSITY 


FT27: REWIND: OFF LINE 


(THIS TEST IS NOT PERFORMED WHEN CONTINUOUS CYCLE OPERATION IS SELECTED: Sw 12 = 


TEST ASSURES THAT AW NRZ WRITTEN 
TAPE WHEN READ AS PE WILL SWITCH THE 
SLAVE TO NRZ MODE. 

1. REWIND SLAVE 

2. WRITE AN NRZ RECORD 

3. REWIND SLAVE 

4. READ RECORD IN PE MODE 

5. CHECK DS REG PES B1T=0 


SELECTION-WRITE PE,READ NRZ: 

THIS TEST ASSURES THAT A PE WRITTEN 
TAPE WHEN READ AS NRZ WILL SWITCH 
THE SLAVE TO PE MODE. 


- READ RECORD IN NRZ MODE 
, — DS REG PES BIT=1 


THIS TEST WILL ASSURE 
THAT THE UNIT WILL REWIND AND 
GO OFF LINE. (NOT IF IN CONTINUOUS CYCLE) 


1. ISSUE THE REWIND OFF-LINE COMMAND. 
2. ASSURE THAT MOL (BIT 12 OF DRIVE STATUS) 
; —" INDICATING THE UNIT WENT OFF LINE. 


fe 
7 REWIND A SLAVE 
c 


SEQ 0012 
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$27 .LIST  BIN,LOC,SEQ 
528 TITLE CZTECBO TMO3=TE16/TU77 BFT 
529 ;BASIC FUNCTION TEST 
530 >AC-A797B-MC 
$31 :FEB 77 
$32 :J.G. ADAMS 
533 ;REVISED JUN 1977 BY J.G. ADAMS ;++B ADDED TU77 CAPABILITY 
534 ;REVISED NOV 1978 BY MIKE PAGE ;:+ DESIGNATES CODE ADDED FOR 
23° “NON-STANDARD JUMPER CONFIG. 
$37 -MCALL .$ACT11,.$EOP,$CATCH, $SAVE , $RESTORE,$CHAIN, S$CHNMODE 
538 -NLIST MC 
539 .LIST ME 
540 ENABLE ABS,AMA 
S41 
S42 
ei :CONSOLE SWITCHES**exxxnn® 
545 :SW15(100000): 1=HALT ON ERROR 
546 : O=CONT INUE 
oH :SW14 (040000) i=L00 =LOOP a (SCOPE (040000) RH TESTS ONLY) 
549 :SW13(02000) : 1=b0 NOT PRINT ERRORS 
550 : O=PRINT ERRORS 
551 :SwW12(010000): 1=CONTINUOUS CYCLE 
552 : O=HALT AT END OF PASS 
553 :SW11(40000):  1=INHIBIT ITERATIONS 
554 : 0O=DO ITERATIONS 
555 EEENEOO? 5 1=HALT AT END OF EACH TEST 
556 O=CONT INUE 
557 = Sw0=4: SELECT TEST NUMBER :: OO=ALL TESTS 


558 : USE SOF TWARE SWR IF HARDWARE SWR <15::00> = 177777 OR NOT AVAIL. 
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: SN: 


wa 


Sari REGISTER BITSxxxxnrnannn 


Ev 2 13 312 ;11 ;10 ;09 ;08 ;07 ;06 ;05 :04 ;03 ;02 ;01 ;00 ; 
Goda doaada sug U OO TODOS RIGO IITOIO ROOK IG DOO TOOK RICO IT ODO 


: 7SC + TRE; sMCP; SPR; DNA; sPSL; ;Al?; ;A16; ;RDY; IE : FUN; FUN; FUN; FUN; ; FUN; GO ; 


2050003000509 00005 0005005000109 0000 000500050000 


; COUNT ; 
9+ MggaeEC Ee eegpengrennt ene nomenon nieneneeceee 


= ADDRESS : 
5 XXX AXXHMXAXH XH AX XM XH HX AXH HHA HH AK AXK AXA AKHK 


COUNT 
EX XXXXXXAAAWXXXXXXXA AIX AXXAAOH AX 
sDLT; ;WCE; s UPE; ; NED; ; NEM; PGE ; | MXF ; MDP ; OR :IR ¢ CLR; PAT; ;BAI; ;U2 ; U1 :U0 : 


sERR; 
eadonaeganto 350205025 0150052050500 ALOIS 
sATA; ERR; sPIP; sMOL ; sWRL ; sEOT; s SPR; ; DPR; s DRY; SSC; sPES; SDN; IDB; TMK; ;BOT; SLA 


£92013000689005000130205 20050005005 00250 2050085000500 0005000500085 
+ ; UNS; ; OPI; ;DT Ss NEF ; sCS sFCE; ;NSG; PEF ; INC; s DAT; SFMT; CNT; RMR; ILR; ILF ; 


™M; s;LRC;V ; BPE; 
"IIIT TOKAI ITI SOCIO HX OCI I IOI OCIA IH IOI 


: ; ATTENTION : 


; SUMMARY : 
lt erce eter emeergeera 


> CHARACTER : 
2 XXX XXIII HXXXXAI IIIA IIIA IIIT KIX HIRI IIIT 


- BUFFER : 
= KCK KIKI III ICICI III III III III IOI III IKI OCI 
70:7:2:3:4:5:6:7: P SCLK:CLK: 6:3:2:1:60: 
Lt FR eer Upeeesecre eo ueoremerngener 
- TYPE “CH: =PR: : 
£X90000050000 0235000 0200000090000 X00 XXIII 


; NUMB : 
00.0.0.0.0.0.0.0.00.0.0.0.0.0.0.0.0.00.9.0.0.0.0.0.9.0.0.0.0.0.0.0.0.9.0.0.0.0.0.0.0.0.0.9.0.9.00090000000 005% 
sACL; sFCS; ; SAC; ; ENA; SPR; ; DEN; ; DEN; DEN; FMT; org FMT; SFMT; 7 EVN; SSN; SSN; SSN; 


AR; 4; 1 
0000000003000000000000300000003000 50005000 FO00 SOI SOI TOIT IK 


SEQ 0014 
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000046 
000052 


000060 
000062 


000176 


000200 


000210 


000224 
000226 


0001 76 
000000 


000200 
000137 


000210 
000137 


000224 
013274 
000 340 
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sREGISTER EQUIVS**texxnnnn 


sACT11 HOOK *eaxtannnne 


SSVPC=. :SAVE CURRENT LOCATION CTR 
= WORD SENDAD :SET LOCATION 46 

“WORD 0 :SET LOCATION 52 = 0 

-=$SVPC “RESTORE LOCATION CTR 

TTY INTERRUPT VECTOR*e«xxxnxnnnne 

.=60 

“WORD  TTINT :TTY INTERRUPT HEADER ADDRESS 


-WORD 340 “PRIORITY LEVEL 7 
;SOFTWARE SWITCH REGISTER***xnnnnnn 


;USED IF HARDWARE SWR <15::00> = 177777 OR NOT AVAIL. 


.=176 
0 ;SOFTWARE SWITCH REGISTER 


> START ADDRESS *x exer akne 


.=200 

JMP START ;PROGRAM START 
sRESTART ADDRESS *xxxkxnknen 
=210 


JMP ST4 
3TMO3 INTERRUPT VECTORe*xexnxnne 

.=224 

$f ge : TAPE INTERRUPT HANDLER ADDRESS 


SEQ 0015 


Oy: a: 


CZTECBO TMO3-TE16/TU77 BFT 


CZTECB.P11 22-NOV-78 07:51 


655 000510 


658 000510 172440 


672 000544 172474 


67S 000546 177776 


MACY11 30A(1052) 


RTRP: 
BIRP2: 


21-DEC-78 


D 2 
13:15 PAGE 16 


-=510 

sMASS BUS REGISTER EQUIVS***xxaxane 
172440 

172442 

172444 

172446 

172450 

172452 

172454 

172456 

172460 

172462 

172464 

172466 

172470 

172472 

172674 

> CONSTANTS*x«*eeeten 

177776 ;PROCESSOR STATUS 
177570 ;SWITCH REGISTER 
177560 ; TTY READER STATUS 
177562 ; TTY READ BUFFER 
177564 ; TTY PUNCH STATUS 
177566 ; TTY PUNCH BUFFER 
177777 ;SERIAL NUMBER 

011 sDRIVE TYPE 

10 ; ITERATION AMOUNT 
224 : INTERRUPT VECTOR (RH) 
1726449 = START ING REGISTER ADDRESS 
4 *BUS TRAP ADDRESS 

6 ;BUS TRAP PRIORITY LEVEL 7 


SEQ 0016 


oT rn 


2 
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CZTECB.P11 22-NOV-78 07:51 SEQ 0017 
689 FLAGS AND COUNTERS *#&xeeanne } 
691 000600 TOR 0 
692 000602 000000 TIB 0 
693 000000 RH17F: O 
694 06 000000 HDRFL: 0 
695 000610 000000 FMADDR: 0 

000612 000000 DRVN 0 

697 000614 000000 SLVN 0 
698 000616 000000 R: O 
000620 000000 FCNT 0 
000622 000000 WCNT 0 

701 000624 000000 RCNT 0 
702 000626 000000 ERRP 0 
703 000630 000000 ERRP1: 0 
000632 000000 RRD 0 

705 000634 000000 RFD 0 
000636 000000 RDYDX: 0 

707 000640 000000 OPDYX: 0 
708 000642 000000 SCNT 0 
709 000644 000000 PFLG 0 
710 000646 000000 RTRN 0 
711 000650 000000 ERADD: 0 
712 000652 000000 TEMP1: 0 
713 000654 000000 TEMP2: 0 
714 000656 000000 TEMP3: 0 
715 000660 000000 STMSK: 0 
716 000662 000000 ITCNT: O 
717 000000 DSAV 0 
718 000600 SAV1 0 
719 000670 000000 SAV2 0 
720 000672 000000 SAV3 0 
1 000674 000000 SCOLP: 0 
722 000676 000000 ITRLP: O 
723 000700 000000 EXFL 0 
724 000702 000000 PEXFL: O 
725 04 000000 STFLG: 0 
726 706 000000 LTADD: 0 
727 000710 000000 § 0 
728 000712 000000 SERFL: 0 
729 000714 000000 CRCNT: O 
730 000716 000000 D 0 
731 000720 000000 PATRN: 0 
732 000722 9000000 RHTF 0 
733 000724 000000 NRZ0F: 0 
734 000726 000000 RHOF C 
735 000730 00000 PCNTR: O 
7 000732 000000 TEMPST: 0 
737 734 COUNT: O 
000736 000000 RDSW: 0 

739 000740 000000 NONSTD: 0 
740 000742 009000 JUMPER: 0 


: « 
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CZTECE.P11 22=NOV=78 07:51 SEQ 0018 
742 | 
a ;DATA PATTERN GENERATORS***** 
745 000744 000000 DATBL: QO 
746 000746 012770 DATAO: DAT? — ;ALL ONE BITS 
747 000750 0135010 DATA1: DAT2 ;ALL ZERO BITS 
748 000752 013014 DATA2: DATS ;ALTERNATING ONE/ZERO BITS 
749 000754 0613022 DATA3: DAT4  :ALL BITS 0-377 


CZTEC 
CZTEC 


BO TMO3-T 
B.P11 


OOOO © 
S88888888 
eee a aed ed od = oD «3 
SRRVORRVGS 
OOOO OOWOOOOO90O090°9O 
o—— — 3 03d od ot od 2 od ot — 


E16/TU77 BFT 
22-NOV-78 07:51 


Pie eh ey: 
iY 3 4 = AND 
AKBOOAMX S&S & 


© 
© 
© 
oO— 
mW 
™N 


MACY11 30A(1052) 


TSTTABL: 


TLAST: 


21-DEC-78 


G 2 
15:15 PAGE 19 


;LOGIC TEST ENTRY TABLE*®*«xxaannn 


NON -3 3 SS 3 SS SV QP YOR OO UIT SS. & WWRTYD 


NNOAO AWS & WWD -2§ = OO NNAOUUNES SWWWPRD - -]- OO 


SCONTAINS # OF TESTS 


SEQ 0019 


CZTECBO TMO3-TE16/TU77 BFT 
CZTECB.P11 


803 


22-NOV- 


001600 


78 07:51 


000500 
000006 
000004 
001640 
000006 
177777 


000176 
000004 
000006 


000042 
000176 
001662 
001710 
000006 


017576 
014070 


015153 
014070 
001662 
002554 
000043 
015313 
014070 
000572 


013274 


MACY11 


000004 
176714 


000550 


000550 


000041 


0151535 


30A(1052) 


START: 


1$: 
2$: 
3$: 


CHNFLG: 


50$: 
SCHN: 
4$: 


S$: 


6$: 
STOB: 


H 2 
13:15 PAGE 20 


; PROGRAM START AND HOUSEKEEPING**««xxaxxne 


21-DEC-78 
.=1600 
MOV #500,SP 
MOV a6 ,-(SP) 
MOV a4 ,-(SP) 
MOV #1$, 044 
CLR ow 
CMP #-1,aSWR 
BEQ 2$ 
BR 3$ 
CMP (SP)+, (SP) + 
MOV ASWREG, SWR 
MOV (SP) +, ans 
MOV (SP) +, a46 
CLR (PC) + 
.WORD 9 
TST ars2 
BEQ 50$ 
MOV ASWREG, SWR 
INC CHNF LG 
JMP SCHN 
NOP 
CMPB #6, 0441 
BNE 5$ 
MOV 4#MSG69,RS 
JSR PC, TTOUT 
HAL T 
MOV 4MSG3,R4 
JSR PC, TTOUT 
TST CHNF LG 
BEQ 6$ 
JMP TSCD 
MOVB #4 MSG3 
MOV S64 ,R4 
JSR PC, TTOUT 
MOV REGS,R3 
JSR C,OCT 
MOV #REGS,R5 
MOV #7_R1 
MOV #176400,R2 
MOV #172300,R3 
JSR ,TIR 
MOV #MSG5,R4 
JSR PC, TTOUT 
MOV VECT,R3 
JSR PC,OCTP 
MOV AVECT.RS 
MOV 4,R1 
MOV #224 ,.R2 
MOV #150,R3 
JSR “TTR 
MOV t°T,RO 
MOV AMTINT, (RQ) + 


;SET STACK POINTER 
; SAVE VECTORS 


;SET UP FOR TIMEOUT 
sREFERENCE HARDWARE SWITCH REGISTER 


sADJUST STACK 
sPOINT TO SOFTWARE SWITCH REG 
sRESTORE VECTORS 


3;;CLEAR CHAIN INDICATOR 
;z;CHAIN MODE INDICATOR 

331/0 = CHAIN/NOT CHAIN MODE 
;;BRANCH IF IN DUMP MODE 


be eT ON SOFTWARE SWR 
>SET CHNFLG = CHAIN 
:GO TO CHAIN ADDRESS 


MODE 


;BRANCH IF LOADED VIA TMDP (DUMP MODE) 
sADVISE USER TO REMOVE TMDP FROM UUT 


;PRINT TITLE 
SEE IF _IN CHAIN MODE 
NOT: BR 


7 IF 
ELSE GO START TEST 
:DO NOT PRINT TITLE ON RESTART 


sREQUEST REGISTER ADDRESS 
sPRINT CURRENT ADDRESS 
;SET ADDRESS SAVE LOC 
:SET SIZE OF RESPONSE 

:GO GET RESPONSE 

sREQUEST VECTOR 

SET A CURRENT VECTOR 


;GET VEC 
:;LOAD INTERRUPT ADDRESS IN VECTOR 


SEQ 0020 


CZTECBO TMO3-TE16/TU77 BFT 
CZTECB.P11 751 


859 


43 
002440 


012710 
0 


22-NOV-78 07 


013546 
000002 


0 4 
002000 


2 
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000722 


000742 


176210 
176202 


176176 


STO: 


sT13 


STIA: 


ST2: 


#340, (RO) 


#10000,aCS 
T2 


S 
4MSG41,R4 
PC, TTOUT 
ST1 


;LOAD PRIORITY 
sGET START OF REGS 
;SET NUMBER OF REGS 
;GET START OF TABLE 
;BUILD TABLE 

;BUMP ADDRESS 

sSEE IF DONE 

: IF NOT: BR 


;CLEAR FLAGS + COUNTERS 


;SET ADDRESS TEST FLAG 
e. DO INITIAL ADDRESS TEST PASS 


REQUEST JUMPER CONFIGURATION 
:GET ADDRESS OF RESPONSE 

;SET SIZE OF RESPONSE 
:SET RANGE 


SPONSE 
TEST FOR NON-STANDARD MODE 
sMODIFY TEST SCHEDULE 


sREQUEST DRIVE NUMBER 
;GET See DRIVE # 
“AND T YPE IT 
;SET ADDRESS OF DRIVE NUMBER SAVE 
;SET SIZE OF RESPONSE 
SET UPPER LIMIT 
>SET LOWER LIMIT 
:GO GET RESPONSE 
sSET INIT 
T DRIVE NUMBER 


sPRINT NOT AVAIL 
sREDO DRIVE REQUEST 


sREQUEST SLAVE a 
;GET na SLAVE # 


> AND 

;SET ADDRESS OF SLAVE SAVE 
:SET SIZE OF RESPONSE 
: R LIMIT 


SE 
;SET LOWER LIMIT 
:G0 GET RE SPONSE 


: INIT 

:SET DRIVE NUMBER 

:LOAD SLAVE NUMBER 

; SEE IF SLAVE PRESENT 
SO: BR 


si 


SEQ 0021 


CZTECBO TMOS-TE16/TU77 BFT 
CZTECB.P11 07:51 


22-NOV-78 


012704 
004737 
000734 
012704 


016567 
014070 


013546 


000500 
000730 
014650 


é 
MACY11 30A(1052) 21=DEC-78 13:15 PAGE 22 


S73: MOV 


paged fn 


S14 
CLR 
JSR 


AMSG42 ,R4 
a" TTOUT 


PC,TTR 


#590 .,SP 
PCNTR 
PC,GTSwWR 


sPRINT NON-EXIST SLAVE 
sREDO SLAVE REQUEST 


;PRINT SERIAL NUMBER TAG 
es SERIAL NUMBER 

;GET REQUEST 

;REQUEST RH11 ONLY RESPONSE 
:GET CURRENT SLAG SETTING 


;AND TYPE IT 
eet FLAG ADDRcSS 


:GO GET RESPONSE 


:SET STACK PTR 
;CLEAR PASS COUNTER 
sGET SWITCHES 


SEQ 0022 


CZTECBO TMO5-TE16/TU77 BFT 
CZTECB.P11 


22-NOV- 


052777 


78 07:51 


000004 
175706 
177740 


001662 


177777 
Anne 


06 
175620 
002000 


000704 
175434 


MACY11 30A(1052) 


175770 


000004 


000604 


000612 
000614 
175620 
000612 
175576 


175564 


000041 
000614 


175536 
175524 


175452 


TSCD: 


NXTDRV: 
1$: 


NXTSLV: 


1$: 


TSCD2: 


TSCD3: 


21-DEC-78 


K 2 
13:15 PAGE 23 


;TEST SCHEDULAR****x«x 88 


BIS 
C 


#100,aTKS 
ST 


DRVN.@CS 
#10000,aCS 

1$ 

SLVN 

1$ 

DRVN 

1$ 

#6,0441 

1$ 

SLVN 

#10, 0, SLVN 
ape arc 
#2000, aDT 

NXT SLV 
#TSTTBL,LTADD 
#4 ,LTADD 


RFL 
aL ADD. ,RO 
Fre ,@SWR 
STFLG 


TL°DO 
aSwR ,RO 


;SET KEYBOARD IE BIT 

;CLEAR SINGLE TEST FLAG 
SET RH INDICATOR = RH11 
; SAVE Soni VECTORS 


PRIORITY 
SET TIME OUT TRAP TO 1$ BELOW 


sREFERENCE BAE REGISTER 
;SET FLAG = RH70 
“RESTORE ERROR TRAP 


:GO SELECT SINGLE TEST 
:;BRANCH IF NOT IN CHAIN MODE 


ssINITIALIZE DRIVE # 
¢¢ INITIALIZE SLAVE # 
INIT Sl ae 
:iSTEP DRIVE # 
scEXIT IF ALL i TESTED 
+ FOR oe Re 
;;LOAD DRIVE 4 
; ACCESS DRIVE 
; Eps ‘ DRIVE NON EXISTANT 
::STEP SLAVE # AND BRANCH 
soIF NOT SLAVE 
; sBRANCH IF NOT DRIVE # 0 


> BRANCH IF NOT TMDP 
+e STEP TO SLAVE #4 

;BRANCH IF ALL SLAVES TESTED 
::FOR AVAILABIL 
: «LOAD SLAVE 


::PRESENT (SPR = 0) 


;SET ITERATION ADDRESS 


;CLEAR PRINT “Te FLAG 
son tO Test TO TEST 


0 TE 
SEE IF HALT ON TEST 
7 IF NOT: BR 
sSE IF SINGLE TEST 
IF NCT: BR 


SEQ 0023 


2 
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CZTECB.P11  22=NOV=78 07:51 SEQ 0024 
992 003114 042700 177740 BIC —- #177740,R0 ;BRANCH IF ALL TESTS SELECTED 
993 003120 001615 BEQ ‘TSCD 
99% 003122 012737 900001 000704 STSCD: MOV #1,STFLG ;SET SINGLE TEST FLAG 
995 003130 023700 001120 (MP —TLAST,,RO SEE IF EXCEEDED TESTS 

003134 002410 BLT ‘TEND :IF SO: BR 
997 003136 006300 ASL —- RO 
003140 006100 ROL RO ;SET TABLE MODIFIER 
003142 012737 000756 000706 MOV = #TSTTBL ,LTADD 
1000 003150 060037 000706 ADD —- RO, LTADD ;SET TEST POINTER 
1001 003154 BR TSCD1 
1002 003156 005737 001662 TEND: TST — CHNFLG ;BRANCH IF IN CHAIN MODE 
1003 003162 001265 BNE —-NXTSLV 
1004 003164 012704 015351 $DONE: MOV = #MSG6,R4 
1005 003170 004737 014070 JSR PC, TTOUT ;PRINT END OF PASS 
1006 003174 013703 000730 MOV _—— PCNTR,R3 
1007 003200 004737 014220 JSR PC, OC TP ;PRINT PASS NUMBER 
1008 003204 005 CLR —s-_ RO 
1009 003206 005 1$ DEC ~—-_ RO 
1010 003210 001376 BNE 1$ 
1011 003212 013700 000042 MOV #42, RO ;GET ACT11 RETURN ADDRESS 
1012 003216 001405 BEQ HERE :BRANCH IF NOT ACT11 
1013 003220 000005 RESET 
1014 003222 004710 SENDAD: JSR. — PC, (RO) 
1015 003224 000240 NOP 
1016 003226 000240 NOP 
1017 003230 000240 NOP 
1018 003232 000240 HERE: NOP 
1019 003234 005737 001662 TST —— CHNFLG ;BRANCH IF IN CHAIN MODE 
1020 003240 001005 BNE ‘TEND 
1021 003242 032777 010000 175300 BIT  #10000,aSW’ =; SEE _IF HALT ON PASS 
1022 003250 001001 BNE —sTTENDX :IF NOT: BR 
1023 003252 000000 —_—- HALT 
1024 003254 005237 000730 TENDX: INC  PCNTR ;BUMP PASS COUNTER 


1025 003260 000137 002554 JMP TSCD RESTART 


CZTECBO TMO5-TE16/TU77 BFT 
CZTECB.P11 


22-NOV-78 07:51 


MACY11 30A(1052) 


000610 
000004 
000006 


000004 
000006 


FT1: 


FTIA: 
FTIB: 


FTIX: 


FIX: 


21-DEC-78 


M 2 
13:15 PAGE 25 


;RH ADDRESSING TEST #*x«xnannn 


AMSFT1,EMADDR ;SET HEADER 
ATRAP ,a44 = SET TRAP HANDLER ADDRESS 
#340 ,a46 
#16,R0 ;SET NUMBER OF REGISTERS 
C1,R1 ;GET FIRST ADDRESS (CS1) 
(R1) = REFERENCE REGISTER 
-IF ADDRESS * BAD, BUS TRAP WILL OCCUR 
RO sSEE IF DONE ALL 
FT1X ;1F SO: BR 
#2 ,R1 ;BUMP ADDRESS POINTER 
FTIA ; CONTINUE 
yp "eee: TRAP CATCHER 
HTF +o IF INITIAL ADDRESS TEST PASS 
FTIXX F NOT: BR 
RHTF ; CLEAR FLAG 
STIA »RE TURN 
TSCD2 = RETURN TO SCHEDULAR 


SEQ 0025 


) N 2 
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CZTECB.P11 22=NOV-78 07:51 SEQ 0026 
1047 
1048 :RH REGISTER BITS READ/WRITE*sannnnnnn 
1050 003372 012737 017717 000610 FT2: MOV #MSFT2,EMADDR ;:SET TEST HEADER 
1051 003400 012701 177777 MOV #-1,R1 :SET ALL ONES PATTERN 
1052 003404 004737 013246 FT2A: JSR PC, INIT1 -GO INIT 
1053 003410 013700 000512 MOV wC RO -GET ADDRESS OF WORD COUNT 
1054 003414 010102 MOV R1,R2 = SET EXPT REGISTER BIT PATTERN 
1055 003416 010110 MOV R71. (RO) “LOAD PATTERN 
003420 021002 CMP (RO) .R2 : SEE IF EXPT=RCVD 
1057 003422 001410 BEQ FT2B :IF SO: BR 
1058 003424 012737 016074 000650 MOV 4#™SG25, ERADD ‘SET CODE 
1059 003432 012737 003404 000674 MOV #FT2A, SCOLP =SET SCOPE 
1060 003440 004737 003560 JSR PC_FT2ER -GO DO ERROR 
1061 003444 013700 000514 FT2B: MOV BA,RO -GET ADDRESS OF BUS ADDRESS 
1062 003450 010102 MOV R1,R2 
1063 003452 042702 000001 BIC #1,R2 :SET EXPT PATTERN 
1064 010110 MOV R1, (RO) “LOAD PATTERN 
1065 003460 020210 CMP R2. (RO) -SEE IF EXPT=RCVD 
1066 003462 001410 BEQ FT2C :IF SO:BR 
1067 003464 012737 016102 000650 MOV WMSG26,ERADD  :SET ERROR CODE 
1068 003472 012737 003444 000674 MOV #F T2B. SCOLP -SET SCOPE ADDRESS 
1069 003500 004737 003560 JSR PC FT2ER -GO DO ERROR 
1070 003504 013700 532 FT2C: MOV DB,RO -GET ADDRESS OF DATA BUFFER 
1071 003510 010102 MOV R1_R2 
1072 003512 010110 MOV R1. (RO) :LOAD PATTERN 
1073 003514 012703 004000 MOV #4000, R3 
1074 003520 005303 FT2D: DEC : DELAY 
1075 003522 001376 BNE PP op 
1076 003524 020210 CMP RD (RO) i SEE IF EXPT=RCVD 
1077 003526 001410 BEQ FT2E SO: BR 
1078 003530 012737 016110 000650 MOV #MSG27, ERADD ‘SET ERROR CODE 
1079 003536 012737 003504 000674 MOV #FT2C,SCOLP =SET SCOPE ADDRESS 
1080 003544 004737 003560 JSR PC,FT2ER -GO DO ERROR 
1081 003550 005701 FT2E: TST R1 :SEE IF DONE RESET 
1082 003552 001453 BEQ FT 2x 
1083 003554 005001 CLR R1 ‘SET ZERO PATTERN 
1084 003556 000712 BR FT2A *DO ZERO BITS 
1085 003560 000240 FT2ER: NOP 
1086 003562 032777 020000 174760 BIT #20000, aSWR :SEE IF PRINT ERROR 
1087 003570 001034 BNE FT2ERB -IF NOT: BR 
1088 003572 005737 000606 TST HDRF L -SEE ID DONE HEADER 
1089 003576 001004 BNE FT2ERA -IF SO: BR 
1090 003600 013704 00610 MOV EMADDR RG 
1091 003604 004737 014070 JSR PC, TTOUT :DO HEADER 
1092 003610 012737 000001 000606 FI2ERA: MOV #1 _HDRFL *SET FLAG 
1093 003616 013704 000650 MOV ERADD ,.R4 
1094 003622 004737 014070 JSR PC, TTOUT -PRINT ERROR CODE 
1095 003626 012704 016040 MOV #M3G22,R4 
1096 003632 004737 014070 JSR PC. TTOUT :PRINT EXPT TAG 
1097 003636 010103 MOV R1_R 
1098 003640 004737 014206 JSR PC,OCTPE -PRINT EXPT 
1099 003644 012704 016050 MOV #M5G623,R4 
1100 003650 004737 014070 JSR PC_TTOUT =PRINT RCVD TAG 
1101 003654 011003 MOV RA) R 
1102 003656 004737 014206 JSR PC _OCTPE :PRINT RCVD 


3 
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P11 22=NOV=78 07:51 SEQ 0027 


003662 005777 174662 FT2ERS: TST aSWR ;SEE IF HALT ON ERROR 
003666 100001 BPL FT2ERC ; IF NOT: BR 

003670 000000 HALT 

003672 004737 013042 FT2ERC: JSR PC ,SCOPE :GO SEE IF SCOPE ON ERROR 
003676 000240 NOP 

003700 000207 RTS PC ;IF NO SCOPE: CONTINUE TEST 
003702 000240 FT2X: NOP 

003704 004737 013076 JSR PC, ITER ;GO SEE IF ITERATIONS 
003710 000137 003070 JMP TSCD2 sRETURN TO SCHEDULAR 


MPOPUNINININININID Ss OS Ss SOO] 


MII ES BERKEL RRREW 
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B.P11 22=NOV=78 07:51 SEQ 0028 
2 
3 :RH INITIALIZE TEST#*xxaxnnen 
5 003714 012737 017754 000610 FT3: MOV #MSFT3,EMADDR  ;:SET TEST HEADER 
6 003722 012737 003714 000674 MOV wET3. SCOLP 
7 003730 004737 013246 JSR T1 :GO INIT 
8 003734 052777 020000 174556 BIS #20000.aCcS “FORCE UPE =1 
9 003742 000240 NOP 
0 003744 004737 013246 JSR PC, INIT1 :GO0 INIT 
1 003750 005777 174534 TST aci “SEE IF SC IS RESET 
2 003754 100005 BPL FT3A “IF SO: BR 
3 003756 012737 016146 000650 MOV #8029, ERADD  :SET ERROR CODE 
4 003764 004737 004050 JSR PC.FT3ER -GO DO ERROR 
5 003770 032777 040000 174512 FI3A:_ BIT #40000, Act ; SEE IF TRE IS RESET 
6 003776 001405 BEQ FT F 
? 000 012737 016175 000650 MOV #MSG30,ERADD “SET ERROR CODE. 
8 004006 004737 004050 JSR PC_FT3ER -GO DO ERROR 
004012 017701 174502 FT3B: MOV acs.R1 “GET CS2 
004016 042701 000307 BIC #307 ,R1 “MARK IR/OR 
004022 005701 TST R1 “SEE IF RESET 
004024 001405 BEQ FT 3X -IF SO: BR 
004026 012737 016225 000650 MOV #MSG31,ERADD —;SET ERROR CODE 
004034 004737 004050 JSR PC_FT3ER -GO DO ERROR 
004040 004737 013076 FT3x: JSR PC, ITER -GO SEE IF ITERATION 
004044 000137 003070 JMP TSCD2 “RETURN TO SCHEDULAR 
:ERROR REPORT SUBROUTINE 
004050 000240 FT3ER: NOP 
004052 032777 020000 174470 BIT #20000, aSWR :SEE IF PRINT ERROR 
004 001015 BNE 2$ “IF NOT: BR 
004062 005737 000606 TST HDRFL -SEE IF DONE HEADER 
004066 00 BNE 1$ :IF SO: BR 
004070 013704 000610 MOV EMADDR,R4 
004074 004737 014070 JSR PC. TTOUT :PRINT HEADER 
004100 005237 000606 INC HDRF L 
004104 013704 000650 1$: MOV ERADD ,R4 
004110 004737 014070 JSR PC. TTOUT :PRINT ERROR CODE 
004114 005777 174430 2$: TST aSWR “SEE IF HALT ON ERROR 
004120 100007 BPL 3$ -IF NOT: BR 
004122 HAL T 
004124 000240 3$: NOP 
004126 004737 013042 JSR PC, SCOPE :GO SEE IF SCOPE 
004132 0600207 RTS P( “IF NOT: BR 


AO 
Mn 
4 


D 3 
BO TMO35-TE16/TU77 BFT MACY11 30A(1052) 21=DEC=78 13:15 PAGE 29 


C 

CB.P11 22-NOV-78 07:51 SEQ 0029 
55 

8 ;RH11 SILO TEST 1: EPMTY SILO READ*«xxxnnann 
538 004134 005737 000604 FT4: TST RH17F 

59 004140 001141 BNE FT5X ;1F RH70: BR 

60 004142 012737 020006 000610 MOV AMSFT4,EMADDR ;SET TEST TEST HEADER 
61 004150 012777 000040 174342 MOV #40,aCS ; INIT 

62 004156 017700 174350 MOV @DB ,RO sREAD D 

63 004162 005777 174332 TST acs sSEE IF uULT IS SET 
64 004166 100013 BPL FT4ER ;IF NOT: BR 

65 004170 005777 174314 TST ac sSEE IF SC IS SET 

66 004174 BPL FTGERA :;IF NOT: BR 

67 004176 032777 040000 174304 BIT #40000,aC1 ;SEE IF TRE IS SET 
68 004204 001414 BEQ FT4ERB ; IF NOT: BR 

69 004206 737 013076 FT4X: JSR PC, ITER ;GO SEE IF ITERATION 
70 004212 000137 003070 JMP TSCD2 sRETURN TO SCHEDULAR 
71 004216 012737 016255 000650 FT4ER: MOV 4MSG32,ERADD ;SET ERROR CODE 

72 004224 000407 BR FTGER 

73 004226 012737 016273 000650 FT4ERA: MOV 4MSG33,ERADD ;SET ERROR CODE 

74 «0042 000403 BR FTGERC 

75 +0042 0127357 016310 000650 FI4ERB: MOV #MSG34 ,ERADD ;SET ERROR CODE. 

76 004244 00024 FT4ERC: NOP 

77 =004246 012737 9004134 000674 MOV #FT4,SCOLP ;SET SCOPE ADDRESS 
78 004254 004737 004050 JSR PC,FTSER :GO PRINT ERROR 

79 004260 000752 BR FT4X 


= 


ee kk dd ed ed od ed ot OPTI 
BRIRARASLSSRURARATSS 


a dk Bt dd ed ad ed 3 od 2) od ow) SS 3 
VBSSSSBIBBB 
SSBLRRR RRS 


TMO3=TE16/TU77 BFT 


-P11 


EEree 
RRXSEL 


EERRERER 


004354 


005737 


22-NOV-78 07:51 


000604 
020036 
4 


016326 
004050 
000200 


016353 
004050 


000000 
000200 
016402 
004050 
177777 
004000 
000200 


016402 


003070 


3 
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000610 
000674 


174202 
000650 
174160 
000650 


174150 
174130 


000650 
174120 
174074 


000650 


FT5: 


FTSA: 


FTSB: 


FTSC: 


FISD: 
FI5E: 


FT5X: 


;RH11 SILO TEST 2: 


RH17F 


FTSX 
#MSFTS ,EMADDR 


#FTSA,SCOLP 


FT5B 
W"SC35 , ERADD 
PC_FT3ER 
#200, acs 


4MSG36 ,ERADD 
ot FT3ER 


#200, acs 
Emea37. ERADD 
PC FT 3ER 


E 
4MSG37 ,ERADD 
PC.FT3ER 
PC,ITER 
TSCD2 


IR/OR CHECK &xxaannne 


TF SO: RH70 


O: BR 
;SET TEST HEADER 
SET i ADDRESS 


;GO_INIT 

TF So: IR IS SET 
:SET ERROR CODE 

:GO DO ERROR 

:SEE IF OR IS RESET 


:IF SO: BR 
:SET ERROR CODE 
;GO DO ERROR 


:LOAD ZERO INTO SILO 
;SEE THAT OR RESET 
;IF IT DOES: BR 

:SET ERROR CODE 

:GO DO ERROR 


sLOAD SILO WITH -1 


sSEE IF OR IS SET 
;IF SO: BR 


;AWAIT OR 

;SET ERROR CODE 

;GO DO ERROR 

:;GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 


SEQ 0050 


TMO5=TE16/TU77 BFT 


~P11 


KRNEFSNVSURSRSaNS 


005737 
2 


100001 
000000 
009207 


22-NOV-78 07:51 


000604 
020066 
004476 
013246 
174022 
000102 
000100 
016513 
004050 
000200 


016441 
004050 


173740 


000102 


013076 
003070 


020000 


MACY11 30A(1052) 


000610 
000674 


173772 
000650 
173750 
000650 


173722 


FT6: 


FT6A: 
FT6B: 


FT6C: 


FT6D: 
FI6E: 


FT6X: 


FT6DE: 


FT6DEA: 


FTO6ODER: 


F TODEX: 


21-DEC-78 


;RH11 SILO TEST 3: SILO 


HAL T 
RTS 


RH17F 

FT6X 
#MSFT6,EMADDR 
#FT6A,SCOLP 
PC, INIT1 

RO 

RO, aDB 

RO 

#102,R0 

FT6B 
#100,aCS 
FT6C 
#MSG40,ERADD 
PC_FT3ER 
#200, acs 


4MSG38 , ERADD 
PC,FI3ER 
RO 


@DB ,R1 
RO,R1 

F T6DE 
RO 
#102,R0 
F T6E 
PC,ITER 
TSCD2 


#20000 ,dSWR 
FT6DEB 


. 3 
13:15 PAGE 31 


DATA TEST xxxanxnane 


F RH70: BR 


HF | 
;SET TEST HEADER 


:SET SCOPE ADDRESS 

:GO INIT 

:PRESET DATA 

:LOAD SILO 

:BUMP DATA 

+SEE IF FILLED ALL 
NOT: BR 

® SEE IF IR IS RESET. 

;IF SO: BR 

:SET ERROR CODE 

;GO RROR 

;SEE IF OR IS SET 


:;IF SQ: BR 
:SET ERROR CODE 
;GO DO ERROR 


=PRESET DATA 
; READ 


SILO 
:SEE IF _EXPT= RCVD 
IF NOT: A. 
:BUMP DAT 
3 SEE uit DONE ALL 


; IF NOT: BR 
:GO SEE IF ITERATION 


:RETURN TO SCHEDULAR 


aE NOT : PRINT ERROR 
;SEE IF DONE HEADER 


:PRINT HEADER 
:SET FLAG 


;PRINT SILO READ ERROR 
s;PRINT EXPT TAG 

:PRINT EXPT 

:PRINT RCVD TAG 

;PRINT RCVD 

;SEE IF HALT ON ERROR 
:]* NOT: BR 

sRETURN TO TEST 


SEQ 0031 


CZTECBO TMO3=TE16/TU77 BFT 
CZTECB.P11 


005737 
00 


?37 
000766 


22-NOV-78 07:51 


000604 
020116 


173546 


173524 


013076 
003070 


3 
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000610 
000674 


000650 


;RH11 SILO TEST 4: SILO 


RH17F 


FT7X 
#MSFT7,EMADDR 
#FT7,SCOLP 


TSCD 
4MSG32 ,ERADD 


PC,FT3 
FT 


OVERF LOW* *xnannnn 


: IF RH70: BR 
:SET TEST HEADER 
:SET ae ADDRESS 


:GO_INI 

:SET SIZE OF SILO +1 
:LOAD SILO 

sven iF DONE 

;IF NOT: BR 

:SEE IF DLT IS SET 
;IF NOT: BR 


:GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 


:SET ERROR CODE 
:GO DO ERROR 


SEQ 0032 


“an 


H 3 
CBO TMO3-TE16/TU77 BFT MACY11 30A(1052) 21=DEC=78 13:15 PAGE 33 


CZTE 
CZTECB.P11 © 22=NOV=78 07:51 SEQ 0033 
1282 

1288 ;RH11 SILO TEST 5: SILO RESET#eewnweees 

1285 005022 005737 000604 FT10: ‘TST RH17F 

1286 005026 001034 BNE FT 10x :1F RH70: BR 

1287 005030 012737 020146 000610 MOV #MSFT10,EMADDR :SET TEST HEADER 
1288 005036 012737 005022 000674 MOV #FT10,SCOLP :SET SCOPE ADDRESS 
1289 005044 012777 000040 173446 MOV #40,aCS : INITIALIZE 

1290 005052 012700 000004 MOV #4 ,RO :SET NUMBER OF SILO WRITER 
1291 005056 010077 173450 FTIOA: MOV RO. aDB [WRITE SILO 

1292 005062 005300 DEC RO : SEE IF DONE 

1293 005064 0013 BNE FT10A F NOT: BR 

1294 005066 052777 000040 173424 BIS #40,aCS : INITIALIZE 

1295 005074 012777 177777 173430 MOV #-1,aDB WRITE SILO 

1296 005102 017701 173424 MOV aDB.R1 :READ SILO 1 

1297 005106 017701 173420 MOV oR SREAD SILO 2 

1298 005112 005777 173402 TST acs :SEE IF DLT iS SET 
1299 005116 100011 BPL FTIOER :1F NOT: RE 

1300 005120 004737 013076 FTIOX: JSR PC ITER :GQ SEE *. ITERATION 
1301 005124 005737 000726 TST RHOF “SEE IF RH11 ONLY 
1302 005130 001402 BEO FT TONX :IF NOT: BR 

1303 005132 000137 003156 IMP TEND ZELSE GO TC END 

1304 005136 000137 903070 == =———SsFT10xx: JMP TSCD2 RETURN TO SCHEDULAR 
1305 005142 012737 016255 000650 FTIOER: MOV WMSG32.ERADD  :SET ERROR CODE 

1306 005150 006737 004050 J§R PC FT3ER GO DO ERROR 

1307 005154 000761 BR FT TOx 


MEW OOONAUSWNO oO 


R 


3 
MO5-TE16/TU77 BFT MACY11 30A(1052) 21-DEC-78 13:15 PAGE 34 


' 
P11 22=NOV=78 07:51 SEQ 0034 
:NOP TEST xa 

005156 000240 FT11: NOP 

005160 012737 005156 000674 MOV #FT11,SCOLP :SET SCOPE ADDRESS 

005166 004737 013246 JSR PC, INIT1 

005172 012737 000300 000716 MOV #300, UDES :SET TC= ALL NRZ,NORM,ODD 

005200 012737 177777 000620 MOV #=1,F CNT -SET FC= ALL OVER 

005206 012737 177777 000622 MOV #-1 ,WCNT =SET WC= ALL OVER 

005214 012737 177777 060616 MOV #-1 ,BADDR -SET BA= ALL OVER 

005222 012737 000001 000636 MOV #1 .RDYDX =SET DELAY 

5230 012737 000001 000640 MOV #1, OPDYX :SET oP DELAY 

005236 012737 000001 000710 MOV #1 FUN -SET NOP FUNCTIONS CODE 

005244 004737 012072 JSR PC EXEC =GO EXECUTE COMMAND 

005250 000240 NOP 

005252 012737 020177 000610 MOV #MSFT11 -EMADDR 

005260 004737 012272 JSR PC ERCHK :GO CHECK REGISTER 


005264 004737 015076 JSR PC, ITER ;GO SEE IF ITERATIONS 
005270 000137 003070 JMP TSCD2 sRETURN TO SCHEDULAR 


RARRSSSSRE Be 


wed ed ceed ae ed ed ce ced eld ced ced ed cel ced ed ceed ae ed 8 
RW OOO 


TMO3-TE16/TU77 BFT 
P11 22=NOV=78 07:51 


020217 
012272 
015076 
003070 


5 
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000674 
173224 


173140 
000610 


FTl2: 


FTI2A: 


;REWIND TESTxxees 


#FT12,SCOLP 
PC T1 


#WDATA,BADDR 

#7 ,F 

PC EXEC 

#20000,aDS 

FT12A 

A#MSFT12,EMADDR 
HK 


:GO INITIALIZE 

:SET TO NRZ, 

>SET FC=20 

>SET wC=10 

;SET BA=WRITE BUFFER 


;SET REWIND OP CODE 
;GO EXECUTE COMMAND 


sAWAIT PIP 
;GO CHECK FOR ERROR 


;GO SEE IF ITERATION 
sRETURN TO SCHEDULAR 


SEQ 0035 


=. 
BO TMO3-TE16/TU77 BFT MACY11 30A(1052) 21=DEC-78 13:15 PAGE 36 


C 
CB.P11 22=NOV=-78 07:51 SEQ 0036 
345 :WRITE/READ TESTexees 

3%47 005406 000240 FT13: NOP 

3%48 005410 012737 000001 000636 MOV #1 ,RDYDX 

3%49 005416 012737 000001 000640 MOV #1. OPDYX 

350 005424 012737 000100 000624 MOV #100,RCNT :SET RECORD COUNT 

351 005432 012737 020242 000610 MOV WMSFT13,EMADDR :SET TEST HEADER 

352 005440 012737 000001 000720 MOV #1,PATRN 

353 00544 012730 JSR PC DSUP :SET UP ALL ONES DATA PATTERN 
354 005452 012737 001700 000716 MOV #1700, UDES :SET TO 800 BPI NORMAL 
355 004737 012224 FT13A: JSR Ge :;GO REWIND 

356 012737 177600 000620 MOV #-200,F CNT “SET FC 

357 005472 012737 177700 000622 MOV #-100,WCNT “SET WC 

358 005500 012737 021054 000616 MOV #WDATA,BADDR  :SET BA 

359 005506 012737 000061 000710 MOV #61,FUN “SET WRITE OP=CODE 

360 005514 012737 015615 000626 MOV #"SG12,ERRP 

361 005522 004737 012072 FT13B: JSR PC, EXEC :GO EXECUTE COMMAND 

32 005526 005037 000674 CLR SCOLP -NO SCOPE LOOP 

363 005532 004737 012272 JSR PC ,ERCHK =GO CHECK ERROR 

364 005536 005337 000624 DEC RCNT “SEE IF DONE ALL 

365 005542 001367 E FT13B “IF NOT: BR 

366 005544 012737 000100 000624 MOV #100,RCNT :SET RECORD COUNT 

367 005552 012737 022566 000616 MOV #RDATA,BADDR 

368 005560 062737 000200 000616 ADD #200,BADDR :SET BA 

369 005566 012737 000077 000710 MOV #77 ,FUN :;SET READ REVERSE OP-CPDE 
370 005574 012737 015633 00062€ MOV #™SG13,ERRP 

371 005602 004737 012072 FT13C: JSR PC, EXEC :GO EXECUTE COMMAND 

372 005606 004737 012272 JSR PC ERCHK =GO CHECK ERROR 

373 005612 005337 000624 DEC RCNT “SEE IF READ ALL 

374 005616 001371 BNE FT13C “IF NOT:BR 

375 005620 162737 000200 000616 SUB #200, BADDR “SET BA 

376 005626 012737 000071 000710 MOV #71,FUN ;SET READ FORWARD OP-CODE 
377 005634 012737 015660 000626 MOV #MSG14,ERRP 

378 005642 012737 000100 000624 MOV #100,RCNT :SET RECORD COUNT 

379 005650 004737 012072 FT13D: JSR PC EXEC =GO EXECUTE COMMAND 

380 005654 004737 012272 JSR PC; ERCHK =GO CHECK ERRORS 

381 005660 005337 000624 DEC RCNT =SEE IF DONE ALL 

382 005664 001371 BNE FT13D : IF NOT:BR 

383 005666 032737 002000 000716 BIT #2000, UDES *SEE IF DONE PE 

384 005674 001007 BNE FT 13x :IF SO: BR 

385 005676 012737 002300 000716 MOV #2300, UDES -SET PE MODE 

386 005704 012737 000100 000624 MOV #100, RCNT “RESET RECORD COUNT 

387 005712 000662 BR FTI3A :GO DO NEXT DENSITY 

388 005714 000137 003070 FT13x:  JMP TSCD2 “RETURN TO SCHEDULAR 


TMO3=TE16/TU77 BFT 


-P11 


22-NOV-78 07:51 


020271 


022566 


3 
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000710 


000626 


000676 


FT14: 


FTIGA1: 


FTIGA: 


FT14A2: 


FT14A3: 


FT14B: 


FTIGRR: 


sSPACE TEST***«* 


4#MSFT14,EMADDR 


4 00,UDES 


#RDATA,BADDR 


;SET TEST HEADER 

7SET NRZ,NORMAL 

:GO_ INITIALIZE 

;SET NUMBER OF RECORDER 

: SET DATA PATTERN 
PRESET FRAME CNT 


PRESET WORD CNT 
‘60 REWIND 


;SET WRITE OP-CODE 
:MASK DATA RELATED ERRORS 
: INHIBIT BUS ADDRESS INCREMENT 
COMMAND 


ELSE EXIT 
=SEE IF SHOULD BUMP wC 
2 NOT: BR 


;BUMP WC 

;SEE_IF DONE ALL 

;WRITE ALL RECORDS 
:PRESET RECORD POSITION 


;SET SPACE AMOUNT 

;SET OP-CODE SPACE REVERSE 
-GO EXECUTE COMMAND 

SET ERROR CODE 

=GO CHECK ERRORS 

SEE IF ERROR 

: O: BR 

;GO READ REVERSE + CHECK DATA 


:SET SPACE FORWARD OP-CODE 
:SET SPACE AMOUNT 


:;I1F DONE: BR 
;G0 EXECUTE coe 


ECK ERROR 
:SEE IF ERROR FLAG 
: IF NO: BR 
:GO READ FORWARD FOR POSITION CHECK 
sDECREMENT SPACE AMOUNT 
:1F DONE: BR 


“BUMP DATA EXPT 
;BUMP DATA EXPT 


:SET BA 


SEQ 0037 


on 
NM 
4 4 


£ELELE mmr 
YVIMNUIUT SE & ‘ale 
WhO DONO W @ 


BREE RRR EEE 
Wyuna 
OONASW 


g 


RERREEREEERERERREREREERERE 
BISSSARES 


1469 


-P11 


012737 
004737 


BO TMO3-TE16/TU77 BFT 
22-NOV-78 07:51 


000077 
012072 
000632 
172176 
006354 
000071 
012072 
000634 
172144 
013246 


020000 
020271 


016033 
014070 
000002 
016005 
0157€5 
Rahes 


16040 
014070 


1 
014220 


003070 


MACY11 30A(1052) 


000710 


060710 


172156 


000716 


000710 


FTIGRF: 


FT14EC: 
FT1GRER: 


FT14R0: 


oo ie | 
~~ 
—3 
~~ 
De 
— 


FT14R3: 


FT14X: 


FT14XxX: 


R2: 


21=DEC-78 

MOV #77..F UN 
JSR PC EXEC 
NOP 
MOV RRD.R5 

CMP RS,aFC 
BNE FTIGRER 
JMP FTIGEC 

NOP 
MOV #71.FUN 
JSR PC,EXEC 
MOV RFD.R5 

CMP RS5,aFC 
BNE FTIGRER 
JSR PC, INIT1 
RTS PC 

NOP 
BIT #20000, aSWR 
BNE FT14R3 
MOV AMSFT14,R4 
JSR PC_TT 

MOV #MSGI,R4G 
JSR PC, TTOUT 
MOV #MSG20,R4 
BIT #2000 UDES 
BEQ 4RO 
MOV SmSeot . R4 
JSR PC, TTOUT 
BIT * FUN 
BNE FTI4R1 
MOV #MSG17.R4 
BR FT14R2 
MOV #MSG16.R4 
JSR PC. TTOUT 
MOV 4MSG22 RG 
JSR PC, TTOUT 
MOV R3 
BIC #177700.R3 
JSR PC,OCTP 
MOV #MSG23,R4 
JSR PC_TT 
MOV aFC,R3 
BIC #177700,R3 
JSR PC,OCTP 
TST as 
BPL FT14Xx 

HALT 
BIT #2000, UDES 
BNE FTIGKX 
MOV #2300, UDES 
JMP FTIGAI 

JMP TSCD2 


M 3 
13:15 PAGE 38 


;SET READ REVERSE OP-CODE 
:GO EXECUTE COMMAND 

4 La os RECORD 
‘60 CLEAR RH11 ERROR BIT 


;SET READ FORWARD OP=CODE 
:GO EXECUTE COMMAND 


sSEE IF CORRECT RECORD 
:IF NOT: BR 

>CLEAR RH 

;RETURN 


;SEE IF PRINT INHIBITED 
;1F SO: BR 

s;PRINT HEADER 

:PRINT ERROR TYPE 
= SET NRZ TAG POINTER 
41 * 4 PE 

iif : BR 

‘ELSE “SEI PE TAG POINTER 

INT TAG 


> SEE IF READ REVERSE 
;IF SO: BR 


3;GO PRINT 
:PRINT FRWD/REV 
;PRINI EXPT TAG 


MASK RECORD NUMBER 
“PRINT EXPT RECORD NUMBER 


:PRINT RCVD TAG 
sMASK RECORD NUMBER 
;PRINT ACTUAL RECORD NUMBER 
;SEE IF HALT ON ERROR 
;1F NOT: BR 
eset IF DONE PE 
50: BR 
‘SET TO PE 


:DO_IN PE 
:RETURN TO SCHEDULAR 


SEQ 0038 


N 3 
CZTECBO TMO3S-TE16/TU77 BFT MACY11 30A(1052) 21=DEC-78 13:15 PAGE 39 
CZTECB.P11 22-NOV-78 07:51 SEQ 0039 


1496 ERASE TEST#*«xs 
1498 006572 00024 FT15: NOP 

1499 006574 005037 000660 CLR 

1500 012737 000100 000636 MOV F100 RDYDX 

1501 012737 000010 000640 MOV #10, 0PDYX 

1502 006614 012737 020313 000610 MOV wMsPTIS EMADDR ;:SET TEST HEADER 

1503 006622 004737 012224 JSR “REWIND 

1504 006626 012737 022566 000616 MOV WROATA ,BADDR :SET BA 

1505 006634 012737 001700 000716 MOV #1700, UDES -SET NRZ, NORMAL 

1506 006642 012737 000025 000710 FI15A: MOV #25.FUN =SET ERASE OP-CODE 

1507 006650 012737 000454 000624 MOV #300. ,RCNT :+4+B SET TO ERASE 300 TIMES 
1508 006656 004737 012072 FT15B: JSR PC EXEC *GO EXECUTE COMMAND 

1509 012737 016732 000626 MOV #5646, ERRP “SET ERROR CODE 

1510 006670 37, 012272 JSR PC,ERC =GO CHECK ERRORS 

1511 006674 005737 1 TST SERFL : F ANY ERRORS 

1512 006700 001032 BNE FT 15x -IF SO EXIT 

1513 006702 005337 000624 DEC RCNT =SEE IF DONE ERASING : 
1514 006706 001363 BNE FT15B -IF NOT: BR 

1515 006710 000240 NOP 

1516 006712 004737 012224 JSR : REWIND 

1517 006716 012737 177600 000622 MOV 4-200, WCNT “SET wC 

1518 006724 012737 000071 000710 MOV #71,FUN =SET READ FORWARD OP-CODE 
1519 006732 012737 000040 000636 MOV #40 .RDYDX =SET DELAY 

1520 006740 004737 012072 JSR PC EXEC =GO EXECUTE COMMAND 

1521 006744 000240 NOP 

1522 006746 012737 017404 000626 MOV #™SG60,ERRP :SET ERROR CODE 

1523 006754 012737 020000 000660 MOV #20000. STMSK 

1524 006762 004737 012272 JSR PC, ERCHK :GO CHECK ERRORS 

1525 006766 000137 003070 FT15K: JMP TSCD2 sRETURN TO SCHEDULAR 


NY 
4-4 


on” 
VIMAIVIVIVIVIVIVIVIVIVIVIVIWT Th 


AAA ASTI) 


4 
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KEFREREER 


CB.P11 22=NOV-78 07:51 SEQ 0040 
26 : TAPE MARK WRITE/READ TEST«x««x 
28 006772 000240 FT16: NOP 
29 006774 012737 000001 000636 MOV #1 .RDYDX 
007002 012737 001000 000640 MOV #1000, OPDYx 

31 007010 012737 020335 000610 MOV WMSFTI6,EMADDR :SET HEADER 

32 007016 012737 001700 000716 MOV #1700,UDES :SET TO NRZ,NORMAL ,ODD 
33 007024 004737 012224 FT16A: JSR PC RWND :INIT AND REWIND SLAVE 

34 007030 012737 177760 060620 FT16B: MOV #-20,F CNT =FC=20 

35 007036 012737 177770 000622 MOV #-10,WCNT “WC=10 

3% 007044 012737 000027 000710 MOV #27,FUN -SET WRITE TAPE MARK OP-CODE 
37 007052 004737 012072 JSR PC EXEC -GO EXECUTE COMMAND 

38 007056 012737 001000 900660 MOV #1000. STMSK “SET FOR FCE MASK 

39 007 12737 015705 000626 MOV #"SG15,ERRP =SET ERROR CODE 

0 007072 737 012272 JSR PC,ERCHK “GO CHECK ERROR 

1 007076 004737 012672 JSR PC ° TMCHK -GO SEE IF TM SET 

2 007102 012737 000077 000710 MOV #77 , FUN :SET READ REVERSE OP-CODE 
3 007110 004737 012072 JSR PC EXEC -GO EXECUTE COMMAND 

4 007114 012737 001000 000660 MOV #1000, STMSK =SET FCE ERROR MASK 

5 007122 012737 015633 000626 MOV #MSG13,ERRP =SET ERROR CODE 

6 007130 004737 012272 JSR PC, ERCHK -GO CHECK ERRORS 

7 007134 004737 012672 ISR PC’ TMCHK : E IF TM SET 

8 007140 012737 000071 000710 MOV #71.FUN -SET READ FORWARD OP-CODE 
49 007146 004737 012072 JSR PC EXEC -GO EXECUTE COMMAND 

50 007152 012737 015660 000626 MOV #"SG14,ERRP “SET ERROR CODE 

51 007160 004737 012272 JSR PC, ERCHK -TO CHECK ERRORS 

52 007164 004737 012672 JSR PC’ TMCHK -GO SEE IF TM SET 

53 007170 032737 002000 000716 BIT #2000,UDES “SEE IF DONE PE 

54 007176 001004 BNE FT 16x -IF SO: BR 

55 007200 012737 002300 000716 MOV #2300, UDES “SET PE, NORMAI 

56 007206 000706 BR FT16A -DO IN PE 

57 007210 004737 013076 FT16X: JSR PC, ITER “DO ITERATIONS 

58 007214 000137 003670 MP TSCD2 *RETURN TO SCHEDULAR 


CZTECBO TMO35-TE16/TU77 BFT 
CZTECB.P11 


1607 


ISSSS585 
4 — 4 
MMMEMNWUW 


228 

—_—— 

mn 
SN NNN NNN NO 
WWW AN 

NNN ™N 


22-NOV-78 07:51 


000712 
012672 


012672 
000624 


000031 


016005 
000031 


4 
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000610 
000716 
000710 
000636 
000640 


000660 
000626 


000624 
000624 


000710 


000626 
000660 


000710 
000624 


000660 


000710 


000626 
000710 


FT17C: 


FT17D: 


FT17D1: 


FTI/E: 


3; TAPE MARK SPACE TEST **«xxknnnn 


RCNT 
#MSFT17,EMADDR 
#1700,UDES 

PC RWND 
#27..FUN 
#40000, RDYDX 
#40000, OPDYX 
PC,EXEC 
#102300, STMSK 
#MSG15,ERRP 
PC, ERCHK 

SERFL 

FT17X 

°C, TMCHK 


#100,RCNT 
FT17 


MUDATA. -BADDR 


e 


BC EXEC 

#"5G12, ERRP 
F103300" STMSK 
PC, ERCHK 
SEREL 


#35 ,FUN 
#-200,SCNT 
a 


FT 
#i°SG17,ERRP 
#31,FUN 


;SET HEADER 
:SET TO NRZ 
;REWIND TAPE 


sSET DRY DELAY 

;SET OP DELAY 

-GO WRITE T™™ 

=MASK DATA eo ERRORS 
;SET ERROR TYPE 

;GO CHECK ERROR 

SEE IF ERROR 


: SO: BR 
;GO SEE IF TM SET 


;SEE IF DONE PATTERN 
siF SO; 


-ADD 20 TO RECORD COUNT 
;SAVE RECORD COUNT 
-WC=128 

3FC=256 

*-BA=WRITE BUFFER 

SET WRITE OP CODE 


:GO WRITE 

:SET ERROR CODE 

:MASK DATA RELATED ERRORS 
:GO CHECK ERROR 

:SEE IF ERROR 


BR 
; SEE IF DONE ALL 
F NOT: BR 
“ELSE GO DO T™M 
sSET SPACE REVERSE 
;SET ERROR oo 


:SET TO 200 RECORDS 
:SET NUMBER OF “OPS TO DO 


:GO CHECK ERROR 
;SEE IF ERROR 


:G0 SEE IF TM SET 
>SEE IF DONE SPACES 
;1F NOT: BR 

:SEE IF DONE FORWARD 


:SET ERROR CODE 
:SET TO SPACE FORWARD 


SEQ 0041 
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22-NOV-78 07:51 SEQ 0042 
007572 000736 BR FT17D1 ;DO_ FORWARD 
007574 032737 002000 000716 FTI7F: BIT #2000,UDES : SEE IF DONE PE 
007602 001005 BNE FT17X O: BR 
007604 012737 002300 000716 MOV #2300,UDES SET TO PE 
007612 000137 007240 JMP FT17A 


:G0 PE 
007616 000137 003070 FT17X: JMP TSCD2 :RETURN TO SCHEDULAR 


TMO5=TE16/TU77 BFT 


P11 


22=-NOV-78 07:51 


020424 


002300 


013076 
003070 
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000610 
000716 


000720 


000710 
000626 


000626 
000710 
000616 


000626 
000710 
000616 
000716 


000716 


FT20: 


FT20A: 


FT2OB: 


FT2OC: 


FT2OX: 


sSWRITE CHECK TEST®«xxxnnnnn 


A#MSFT20,EMADDR 
UDES 


ee 
RWND 

"3. PATRN 

PC ,DSUP 


C, 
#WDATA,BADDR 


#-400,F CNT 
#-200,WCNT 
#61 ,FUN 


PC EXEC 
4MSG646 ,ERRP 


msc, »ERRP 


57,FUN 
#376 ,BADDR 
PC,EXEC 
PC ,ERCHK 

SG17,ERRP 
#51,FUN 
#376 ,BADDR 
a EXEC 

ERCHK 

#2000. UDES 

FT20X 


wean. UDES 
FT20A 

PC. ITER 

TSCH2 


;SET HEADER 
;SET UNIT DESCRIPTION 
; INIT AND REWIND SLAVE 


:GO SET PATTERN 3 
;SET BA 
sSET FC 


:SET WC 
:SET WRITE OP CODE 
;GO WRITE RECORD 
:SET ERROR CODE 
;GO CHECK ERROR 

£ IF ERORR 


oo 
@ we 


: BR 
SET REVERSE ERROR TAG 
;SET REVERSE WRITE CHECK OP=CODE 
;SET BA FOR REVERSE CHECK 
-GO DO REVERSE CHECK 


AG 
;SET FORWARD CHECK OP CODE 
;SET BA FOR FORWARD CHECK 
:GO DO FORWARD CHECK 
:GO CHECK ERROR 
4 IF DONE PE 
SO: BR 


‘ELSE SET PE 

;DO IN PE 

:DO_ ITERATIONS 
:RETURN TO SCHEDULAR 


SEQ 0043 


AER GARTSSEE SE 
FENERSNASRO 


Wis & 
MOSM 


22-NOV- 


CZTECBO TMO5=TE16/TU77 BFT 


CZTECB.P11 78 07:51 


001440 
001441 
001440 
016625 
016655 


003070 


MACY11 30A(1052) 


000610 FT21: 
FT2IA: 


000720 


000620 
000622 


000616 
000620 
000622 
000710 
000626 
170230 
000620 
000622 
170200 
170170 
170160 
000650 


000650 
000674 


FT21SCP: 


21-DEC-78 


sERASE HEAD TEST***** 


A#MSFT21,EMADDR 
PC ,RWND 
#3,PATRN 

PC,D 
AWDATA,BADDR 
#-800. tne 


#-400. ,WCNT 
#1700, UDES 


PC, ERCHK 


C,RWND 
#400. ,F CNT 
#=-200. ,WCNT 
PC,EXEC 


PC ,RWND 
#RDATA,BADDR 
#-400.,F CNT 
#-200. ,WCNT 
471 ,FUN 
PC,EXEC 
#MSG14,ERRP 
PC ,ERCHK 


FT 

#MSG45 ,ERADD 
AFT2ISCP,SCOLP 
PC ,FISER 


F 4 
13:15 PAGE 44 


;SET TEST HEADER 
GO REWIND 


;GO SET PATTERN 3 
>SET 


:YES CHECK FOR ERROR 
:GO_ REWIND 


; 0(10) 
:G0 REWRITE RECORD 1-wWH TO EH 


s REWIND 

;SET BA=READ BUFFER 
:SET FC=400 

:SET wC=200 

;SET READ OP-CODE 
;GO READ RECORD 1 
;SET ERROR CODE 

;GO CHECK FOR ERROR 


; INHIBIT ia 


; De 

SEE IF READ RECORD 2 OK 

“BRANCH IF IN GREY AREA 

iF so: i ERASE HEAD REVERSED 

;SET ERASE HEAD INOPERATIVE ERROR CODE 
;SET ERASE HEAD REVERSED ERROR CODE 

re 4 a ADDRESS 

:GO PRINT ERROR 


;GO SEE IF ITERATION 
;RETURN TO SCHEDULAR 


SEQ 0044 


4 
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-P17 22-NOV-78 07:51 SEQ 0045 


sBUFFERED COMMAND TEST**««« 


010400 012737 020504 000610 FT22: MOV #MSFT22,EMADDR :SET TEST HEADER 
010406 004737 012224 JSR PC ,RWND -GO REWIND 
0104612 012700 MOV #3.RO =SET NUMBER OF WRITES 
010416 012737 001700 000716 MOV #1700,UDES -SET TO NRZ NORMAL 
010424 012737 021054 000616 MOV H#WDATA,BADDR :SET BA=WRITE BUFFER 
010432 012737 177000 000620 MOV #~1000,F CNT “SET FC=1000 
010440 012737 177400 060622 MOV #-400,WCNT “SET wC=400 
010446 012737 900061 000710 MOV #61 ,FUN -SET WRITE OP-CODE 
010454 737. (012072 FT22A: JSR PC EXEC -GO DO WRITE 

10460 005300 DEC RO -SEE IF DONE ALL 
010462 001374 BNE FT22A “IF NOT: BR 
010464 000240 NOP 
010466 012777 000007 170014 MOV #7,aC1 :START REWIND 
010474 032777 000200 170020 FT22B: BIT #200, aDS 
010502 001774 BEQ FT22R 
010504 004737 013246 JSR PC, INIT1 : INITIALIZE 
010510 012737 000010 000636 MOV #15 RDYDX -SET LONG READY DELAY 
010516 004737 012072 JSR PC, EXEC > ISSUE BUFFERED WRITE 
010522 000240 ; NOP 
010524 012737 017030 000626 MOV #MSG49. ERRP :SET ERROR CODE 
010532 012737 102300 000660 MOV #102300,STMSK =MARK DATA ERROR 
010540 004737 012272 JSR PC, ERCHK *GO CHECK ERROR 
010544 032777 000002 167750 BIT #2,aDS =SEE IF BOT IS SET 
010552 001410 BEQ FT22XK “IF NOT: BR 
010554 012737 017056 000650 MOV #MSG5O,ERADD  :SET ERROR CODE 
010562 012737 010400 000674 MOV #FT22,SCOLP 
010570 004737 004050 JSR PC_FT3ER :GO DO ERROR 
010574 004737 013076 FT22K: JSR PCL ITER -GO SEE IF ITERATION 


010600 000137 003070 JMP TSCD2 sRETURN TO SCHEDULAR 
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22=NOV=78 07:51 SEQ 0046 

Tong sREAD-IN PRESET TEST*%«% 
1742 010604 005737 00614 FT23: TST SLVN : SEE IF SLAVE SELECT=0 
1743 010610 001103 BNE FT 23x F NOT: 
1744 010612 012737 020541 000610 MOV #MSFT23, EMADDR “SET TEST HEADER 
1745 010620 737 013246 JSR PC_INIT1 : NIT 
1746 010624 012737 001700 000716 MOV #1700, UDES -SET TO NRZ NORMAL 
1747 010632 012737 021054 000616 MOV H#WDATA,BADDR  :SET BA=WRITE BUFFER 
1748 010640 012737 177400 0060620 MOV #-400,F CNT *SET FC=400 
1749 010646 012737 177600 000622 MOV #-200,WCNT =SET wC=200 
1750 010654 012737 000061 000710 MOV #61.FUN = SET WRITE OP=CODE 
1751 010662 004737 012072 JSR PC EXEC -GO DO WRITE 
1752 010666 000240 NOP 
1753 010670 004737 013246 JSR PC, INIT1 : INITIALIZE 
1754 010674 012737 000021 000710 MOV #21. FUN SET READ-IN PRESET OP CODE 
1755 010702 004737 012072 JSR PC EXEC -GO DO COMMAND 
1756 010706 005000 CLR 20 
1757 010710 012703 000004 MOV #4 R3 :SET MULT 
1758 010714 032777 020000 167600 FI23A: BIT #25000, aDS “SEE IF PIP RESET 
1759 010722 001404 BEQ FT238 -IF SO: BR 
1760 010724 005300 DEC RO 
1761 010726 001372 BNE FT23A :AWAIT PIP RESET 
1762 010730 005303 DEC R3 
1763 010732 001370 BNE FT23A :DELAY 
1764 010734 032777 000002 167560 FI23R: BIT #2, aDS “SEE IF BOT 
1765 010742 001010 BNE FT23C “IF SO: BR 
1766 010744 012737 017114 000650 MOV #MSG51,ERADD  :SET ERROR CODE 
1767 010752 012737 010604 000674 MOV #FT23,SCOLP 
1768 010760 004737 004050 JSR PC_FT3ER :GO DO ERROR 
1769 010764 012701 141000 FT23C: MOV #141000,R1 “SET EXPT TC 
1770 010770 013700 000542 MOV TC.RO =SET TC ADDRESS 
1771 010774 020110 CMP RI (RO) =SEE IF EXPT=RCVD 

2 010776 001410 BEQ T23X -1F SO: 
1773 011000 012737 017150 0600650 MOV once. ERADD  :SET ERROR CODE 
1774 011006 012737 010604 000674 MOV #FT23,SCOLP =CLEAR SCOPE ADDRESS 
1775 011014 004737 003560 JSR PC FT2ER -GO DO ERROR 
1776 011020 000137 003070 Fr23x: MP TSCD2 “RETURN TO SCHEDULAR 
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ECB.P11  22=NOV=78 07:51 SEQ 0047 
1779 
78) :AUTO=DENSITY SELECT TEST: WRITE-NRZ,READ-PE 
782 011024 012737 020574 000610 FT24: MOV WMSFT24,EMADDR ; SET ERROR | MSG HEADER 
783 011032 004737 012224 JSR PC, RWND “REWIND SLAVE 
784 011036 012737 000001 000720 MOV #1 _PATRN “SELECT PATTERN 
785 011044 004737 012730 | JSR PC DSUP *GO DO DATA SETUP 
786 011050 012737 021054 000676 MOV #WDATA,BADDR = :SET BUS ADDRESS, 
787 011056 012737 177400 000620 MOV #-400,F CNT ;FRAME COUNT, 
788 011064 012737 177600 000622 MOV #-200,WCNT WORD COUNT, 
789 011072 012737 001700 000716 MOV #1700.UDES 78 SLAVE DESC = NRZ NORMAL 
790 011100 012737 000061 000710 MOV #61,FUN ‘LOAD OP CODE WRITE FwD 
791 011106 004737 012072 JSR PC EXEC *GO EXECUTE COMMAND 
792 011112 012737 016732 000626 MOV #5646, ERRP =SET ERROR MSG ADDRESS 
793 011120 004737 012272 JSR PC, ERCHK =GO CHECK ERRORS 
794 011124 005737 000712 TST SERFL “BRANCH IF AN ERROR OCCURRED 
795 011130 001026 BNE FT 24K 
796 011132 004737 012224 _ JSR PC, RWND :REWIND SLAVE 
797 011136 012737 022566 000616 MOV #RDATA,BADDR  :=SET BUS ADDRESS FOR READ 
798 011144 012737 002300 000716 MOV #2300. “UDES “SET SLAVE DESC = PE.NORMAL 
799 011152 012737 000071 000710 MOV :SET OP CODE = READ FwD 
800 011160 004737 012072 JSR 44 EXEC =GO READ RECORD 
801 011164 032777 000040 167330 BIT #40. abs “BRANCH ID PES BIT CLEARED 
802 011172 001405 .  BEQ FT 24x 
803 011174 012737 017503 000650 MOV #SG63,ERADD 
804 011202 004737 004050 JSR PC_FT3ER :GO PROCESS ERROR 
805 011206 004737 013076 FT24K: JSR PC, ITER 
011212 000137 003070 MP TSCD2 :RETURN TO SCHEDULER 


a5 


aig 


Ss 


and anh and and and aod aed and ca aed 
UEWN —ODOONAUSWW-0O 


N 
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RSOVESRE 
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RSx 


a a ee ee el ed ee ed dd od wd ed 


S= 
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mm 
> 
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Nm 
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S33 555 
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mM 
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000610 
000720 


000626 


000816 


167136 
000650 


FT25: 


FTO5K: 


FT25X 


PC RWND 
#RDATA,BADDR 
#1700, UDES 
71.FUN 
PC EXEC 
wb ads 


msc, ERADD 
PC,FT3ER 
PC,ITER 
TSCD2 


sAUTO-DENSITY SELECT TEST: WRITE~PE ,READ-NRZ 
MOV mnsrT2 ,EMADDR ;:SET ERROR MESSAGE ADDRESS 


REWIND 'S 


SLAV 
;SELECT PATTERN 
:GO DO DATA SETUP 


¢SET BUS ADDRESS 
;FRAME COUN 


sWORD COUNT, 
it SLAVE VE DESC = 


PE, 
CODE 


NORMAL 


ERRORS 
“BRANCH IF ERROR OCURRED 


;REWIND SLAVE 
SET 


BUS ADDRESS FOR READ 


:SET SLAVE DESC = 


NRZ,NORMA 


;SET READ FWD OP CODE 


:GO EXECUTE 


:BRANCH ID PES BIT GOT SET 


:GO PROCESS ERROR 


; ITERATION LOOP 


:RETURN TO SCHEDULER 


L 


SEQ 0048 
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C7TECB.P11 22=NOV=78 07:51 SEQ 0049 
1836 :+4#B SEQUENTIAL TAPE MARK TEST 
1838 011410 000240 FT26: NOP 
1839 011412 012737 020730 000610 MOV WMSFT26,EMADDR ;SET TEST ERROR MSG HEADER 
1840 011420 012737 001700 000716 MOV #1700, UDES T NRZ 
1841 011426 737 (012224 1$: JSR PC “REWIND SLAVE 
1842 011432 012737 000027 000710 MOV 429 FUN = SET WRITE TAPE MARK FUNCTION CODE 
1843 011440 004737 012072 JSR PC EXEC =GO DO TAPE MARK 
1844 011444 005037 000660 CLR STMSK -CLEAR EXPECTED ERROR MASK 
1845 011450 012737 015705 000626 MOV #MSG15,ERRP :SET ERROR MESSAGE 
1846 011456 004737 012272 JSR PC, ERCHK =GO CHECK FOR ERRORS 
1847 011462 004737 012672 --YSR PC’ TMCHK -GO CHECK FOR TAPE MARK 
1848 0611466 005737 000712 TST SERFL “EXIT TEST IF ERROR DETECTED 
1849 011472 001061 BNE FT26X 
1850 011474 004737 012072 JSR PC, EXEC :WRITE SECOND TAPE MARK 
1851 011500 012737 015726 000626 MOV #MSGISA,ERRP = SET ERROR MESSAGE 
1852 011506 004737 012272 JER PC ,ERCHK =GO CHECK ERROR 
1853 011512 004737 012672 JSR PC. TMCHK 
1854 011516 005737 000712 TST SERFL :EXIT TEST IF ERROR DETECTED 
1855 011522 001045 BNE FT26X 
1856 011524 012224 JSR PC RWND : REWIND 
1857 011530 012737 000031 000710 MOV #31 FUN -SET SPACE FORWARD OP CODE 
1858 011536 012737 177777 000642 MOV #-1 SCNT “SET # OF RECORDS TO SPACE 
1859 011544 004737 012072 JSR PC EXEC =GO SPACE FORWARD 
1860 011550 012737 016756 000626 MOV #45647, ERRP =SET SPACE FORWARD ERROR 
1861 011556 004737 012272 JSR PC ,ERCHK =GO CHECK ERROR BITS 
1862 011562 004737 012672 JSR PC” TMCHK =GO CHECK IF TAPE MARK DETECTED 
1863 011566 005737 000712 TST SERFL :EXIT TEST IF ERROR DETECTED 
1864 011572 001027 BNE FT 26X 
1865 011574 004737 012072 JSR PC, EXEC :SPACE TO SECOND TAPE MARK 
1866 011600 004737 012272 JSR PC ERCHK =GO CHECK ERROR BITS 
1867 011604 004737 012672 JSR PC’ TMCHK =CHECK IF TAPE MARK DETECTED 
1868 011610 005737 000712 TST SERFL “EXIT TEST IF ERROR DETECTED 
1869 011614 001 BNE FT 26x 
1870 011616 032737 002000 000716 BIT #2000, UDES :EXIT TEST IF PE COMPLETED 
1871 011624 001004 BNE FT26X 
1872 011626 012737 002300 000716 MOV #2300, UDES :SET PE MODE 
1873 011634 000674 BR 1$ 
1874 011636 004737 013076 FT26x: JSR PC, ITER 
1875 011642 000137 003070 MP TSCD2 


CZTECBO TMOS-TE16/TU77 BFT 
CZTECB.P11 


1876 
1877 
1878 
1879 


—_ 
st 
OSOoooooooooooCooooeooo 


CEES EER ERE RS aR ot tt doh det 


0oOvowowo”od 
ed ed eed eed od 
nhwWwre-O 


SERES. 
MEMOS LO 


g 


=) 


nes AMAONVMEAO 


032777 
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910000 
001662 


020771 
012224 
000001 


010000 


017167 
004050 


000524 
017570 
60 


003070 
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166674 


166506 
000650 


000650 


sREWIND: OFF LINE TEST**««« 


FT27: BIT 
BN 


1$: CLR 


3$: MOV 


FI27k: MOV 
JSR 
FT27KX: JMP 


#10000 ,aSWR 
FT27XX 


FT27X 
mst 27, EMADDR 


"1 “PATRN 


#10000,aDS 
4#MSG53,ERADD 
3ER 


R1 

R1. (RO) 

FT 27x 

wMSG67 ERADD 
PCF T2ER 
#5654 RG 


PC, TIOUT 
TSCD2 


TF So: IN CONTINUOUS MODE 
“BRANCH IF CHAIN MODE 
‘ey TEST HEADER 
sREWIND & SELECT SLAVE | 
: BUFFER 
= SET WRITE BUFFER BUS ADDRESS 
>SET FRAME COUNT 
= SET WORD COUNT 
SET UNIT DESCRIPTION = NRZ 
=SET WRITE COMMAND 
;GO WRITE A RECORD 
3++8 CLEAR ANY ERROR BITS 
; ISSUE REWIND: OFF LINE COMMAND 
;CLEAR SCOPE LOOP 
;CLEAR TIMER 
7; IF NOT TIMED OUT: BR 


:I1F NOT ALL TIMED OUT: BR 
7SEE IF MOL IS RESET 
;IF SO: BR 


:SET ERROR CODE 
:GO DO ERROR 


;GET ADDRESS OF ERROR REG 
SHOUL D 


RESULT 
;BRANCH IF ERROR REG = 0 


;SET ERROR MSG HEADER 


;GO TYPE ERROR 


;PRINT ON LINE oy - g 
;RETURN TO SCHEDUL 8 


SEQ 0050 


MININININD A RS SO] 
FWN—-OO0OnNCuU WD 


P11 


rmronrorororory 


aad ant aad and aad cad and cad aad aad aad aad and and 
Vin S&S WW] SO 


MMMM NININYPNNPNNY 
RRGSENS 


mn 
—— 
NO 


012222 


BO TMO5-TE16/TU77 BFT 
22-NOV-78 07:51 


0006 36 
000200 


000640 
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166326 


166322 


> COMMAND EXECUTE SUBROUTINE ***** 


EXEC: NOP 
BIS 


BN 
EXECA: MOV 
EXECB: NOP 


EXECC: BIT 
BN 


BN 
EXECX: MOV 
EXECXA: DEC 


BNE 
FXECXX: RTS 


SCNT ,aF C 
FUN,@C1 
RDYDX ,R3 
R4 
#290,aDS 
EXECX 

R4 

EXECC 

R3 

EXECC 
OPDYX ,R3 
R$ 
EXECXA 
PC 


:LOAD TAPE CONT 
“LOAD WC 

“LOAD FC 

“LOAD BA 

* SEE IF SPACE FORWARD 
:SEE IF SPACE REVERSE 
=SET SPACE COUNT 
:LOAD OP=CODE + GO 
:SET DELAY 

:SEE IF DRY 

-IF SO: BR 


;DELAY FOR DRY 


; DELAY 
;RETURN TO CALLER 


SEQ 0051 


CZTECBO TMO35-TE16/TU77 BFT 


CZTECB. 


1944 


TRISESESS 


rs 


—_— 3 3 oe SS oe SS) Ls) 2) 2) 
S99SSSSP 


YVIV 
ovr 


P11 


012224 


01 
012270 
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913246 
000007 
000002 
020000 
166240 
013246 
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166252 
166256 


166246 


RWND : 


1$: 
2$: 
3$: 


SREWIND SUBROUTINE ***«* 


JSR 


PC, INIT1 ; INIT SLAVE 

#7 acl ;START REWIND 

+ Tamata ;WAIT FOR BOT TO SET 
a ;WAIT FOR PIP TO CLEAR 
aDS ;++B WAIT FOR DRY 

3$ 3++B 

PC, INIT? s INIT 

PC s;RETURN TO CALLER 


SEQ 0052 


Z 
Z 


C 
C2T 


“~ 
rm 

BAS 35 

oon @D 


SaSSLERES 


& 


Mm—Ovwo 


000.0 
NNN NS 
W 


1980 
1981 


ER 
GN 


SERSPESSSELESIERE 


=f: 


COOOOOOOOOO0O00O 
ar Por Pe Peer Per Pe Por Pr Pe Pe Pe Pe Pr Pr 


MMnNNNnonorg 


P11 


— YS YY 


NMoNMoNoNonofry 
Myvi 


8 
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900712 
166220 
040000 


166202 
002000 


000200 
000003 


011024 
011216 
020000 
000660 


000001 
020000 
000606 
000606 
000610 
014070 
000626 
014070 
016025 
002000 
016033 
014070 
0006 30 


014070 
004000 
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000664 
166210 


060716 


000660 
000742 


166350 
166320 
000660 


000712 
166130 


166052 


166026 


ERCHK: 


ERPT: 


2$: 


1$: B 
ERPTA1: 


ERPTG: 


ERPTA: 


ERPTIA: 


ERPTB: 


ERPTB1: 


ERPTC: 


s;ERROR CHECK SUBROUTINE ***** 


CLR 
MO 


SERFL :CLEAR FLAG 
aDS.DSAV + SAVE DRIVE STATUS REGISTER 
#40000, ads -SEE IF ERROR 
iF SO: 
RETURN 

@ER.R4 :GET ERROR REGISTER 
#2000, UDES -SEE IF PE 

$ :IF SO: BR 
#200, STMSK “RESET PEF MASK 
#3, JUMPER =+TEST FOR NON-STANDARD JUMPER 
ERPTA1 :+BRANCH IF STANDARD 
#FT24,QLTADD  :+CHECK FOR TEST 24 
1 = +BRANCH IF TST24 
F125 aL TADD =+CHECK FOR Tes? 25 
#20000,STMSK § :+SET OPI BIT IN ERROR MASK 
STMSK,R4 “MASK DONT CARE BITS 
ERPTX ;1F NO UNEXPECTED ERRORS: BR 
#1,SERFL -SET FLAG 
#20000, aSwWR -SEE IF SHCULD PRINT ERRORS 
ERPTD - IF NOT: 
HDRFL =SEE IF DONE HEADER 
ERPTA -IF SO: BR 
HDRFL -SET HEADER FLAG 
EMADDR R4 
PC, TTOUT :PRINT HEADER 
ERRP,R4 ;GET ERROR CODE 
ERPTR -IF 
PC, TTOUT =PRINT ERROR CODE 
#M5G20,R4 -SET NRZ TAG 
#2000. atc “SEE IF ‘PE 
ERPT1A “IF NOT: BR 
#MSG21,R4 “ELSE SET PE TAG 
PC. TTOUT “PRINT T 
ERRP1 .R4 : SEE IF "CODE 2 
ERPTB1 F NOT: BR 

C.TTOUT “PRINT CODE 2 
#4000, aSWR -SEE IF ITERATION 

PTC “IF NOT: BR 
4MSG56,R4 
PC, TTOUT :PRINT ITER TAG 
ITCNT.R3 
PC,OCTP :PRINT ITERATION 
#M5G1,R4 
PC .TTQUT :PRINT REGISTER TAG 
PC OC TPE -PRINT CS1 
PC OC TPE :PRINT wc 
PC ,OCTPE -PRINT BA 

FC,R3 
Pc OCTPE :PRINT F( 
acsS,R3 


SEQ 0053 
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CZTECB.P11 


012620 
0 


01 
012670 


22-NOV-78 07:51 


014206 


165670 


013246 


ERPTD: 


ERPTX: 


JSR 


ERPTXX: RTS 


PC ,OCTPE 
aDS ,R3 
PC ,OCTPE 
@ER ,R3 
PC ,OCTPE 
aTc,R3 
PC ,OCTPE 
@SWR 
ERPTX 
PC, INIT1 
PC 


5 
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sPRINT CS2 
sPRINT DS 
;PRINT ER 
sPRINT TC 

;SEE IF HALT ON ERROR 
; IF NOT: BR 


s INIT 
sRE TURN 


SEQ 0054 


D 5 
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CZTECB.P11 22-NOV-78 07:51 SEQ 0055 
S056 ; TAPE MARK STATUS CHECK * exexannnn 
2029 012672 032737 900004 000664 TMCHK: BIT #4 ,DSAV ;BRANCH IF TM SET 
2030 012700 001012 BNE 1$ 
2031 012702 005737 000712 TST SERFL +h IF HAD ERROR 
2032 012706 001007 BNE F SO: BR 
2033 012710 012737 017370 000630 MOV #MSG57,ERRP1 “SET ERROR CODE 2 
2034 012716 004737 012404 JSR PC,ERPTG -GO PRINT TM ERROR 
2035 012722 005037 000630 5 CLR ERRP1 ;CLEAR CODE 2 FLAG 
$039 012726 000207 i$: RTS PC RETURN 
site SDATA SETUP ROUTINE*®*«xxxanne 
2040 012730 000240 DSUP: NOP 
2041 012732 012703 021054 DSO: MOV #WDATA,R3 3R3 = ADDRS OF WRITE BUFFER 
2042 012736 013701 000720 MOV PATRN,R1 3R1 = PATTERN SELECTOR 
2043 012742 006301 ASL R1 *MAKE PATTERN yt dk EVEN 
2044 012744 004771 000744 JSR PC ,@DATBL (R1) + GO GENERATE PATTERN 
2045 012750 012702 000640 MOV #640,R2 >R2=BUFFER SIZE +2 
2046 012754 012701 022566 MOV #RDATA,R1 *R1=READ aes START 
2047 012760 005021 1$: CLR (R1)+ CLEAR BUFFER 
2048 012762 005302 DEC R2 SEE IF DONE ALL 
2049 012764 001375 BNE 1$ “TF NOT: BR 
Spey 012766 000207 RTS PC sEXIT 
$026 ALL ONES**xxxannee 
2054 012770 012701 177777 DAT1: MOV #-1,R1 :R1=DATA 
2055 012774 012702 000640 DATIA: MOV #640,R2 ;R2=WORD COUNT +2 
2056 013000 010123 1$: MOV R1,(R3)+ ;LOAD BUFFER 
2057 013002 005302 DEC R2 :SEE IF DONE 
2058 013004 001375 BNE 1$ ;IF NOT: BR 
2059 013006 000207 RTS PC 
2060 
2061 sALL ZEROS***exeenee 
2062 
2063 013010 005001 CAT2: CLR R1 ;R1=DATA 
sie: 013012 000770 BR DATIA ;LOAD BUFFER 
ie ;ONE/ZERO IN ALTERNATING CHARACTERS® eae ene 
2068 015014 012701 125125 DAT3: MOV #125125,R1 :R1=DATA 
$090 013020 000765 BR DATIA ;LOAD BUFFER 
al ALL BRITS 0-377 eaearennnr 
2073 013022 005001 DATS: CLR ;R1=STARTING DATA 
2074 013024 012702 001500 MOV F500 R2 ;R2=CHARACTER COUNT 
2075 013030 110123 1$: MOVB R11, (R3) + : LOAD BUFFER 
2076 013032 105201 INCB R1 =BUMP DAT 
2077 013034 005302 DEC Ro SSEE If DONE 
2078 013036 001374 BNE 1$ ; IF NOT: BR 
20 013040 000207 RTS PC 


> 
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CZTECB.P11 — 22=NOV=78 07:51 SEQ 0056 
2081 
2082 
2083 
2084 ;SCOPE LOOP ON ERROR SUBROUTINE **###x «1% 
2086 013042 000240 SCOPE: NOP 
2087 013044 032777 040000 165476 BIT  #40000,aSWR © ;SEE_IF LOOP ON ERROR 
2088 013052 001001 BNE -1$ SIF SO: BR 
2089 013054 000207 RTS PC SELSE EXIT 
2090 013056 000240 i$: NOP 
2091 013060 005737 000674 TST —- SCOLP ;SEE IF SCOPE ADDRESS 
2 013064 001001 BNE 2 Z1F NOT: BR 
2093 01 000207 RTS =P ZELSE EXIT 
209% 013070 022626 2: (MP = (SP)+,(SP)+ — SRESET STACK 
2095 015072 000177 165576 IMP @SCOLP :LOOP ON ERROR 
2097 ;TEST ITERATION SUBROUT INE **## 14%: 
2099 013076 000240 ITER: NOP 
2100 013100 032777 004000 165442 BIT #4000, aSWR :SEE_IF ITERATIONS 
2101 013106 001403 BEQ SIF SO: BR 
2102 013110 005037 000662 i$: CLR ——sSTTCNT :CLEAR ITERATION COUNTER 
2103 013114 000207 RTS =P ZELSE EXIT 
2104 013116 005737 000730 2$: TST —-PCNTR :DO SINGLE SUBTEST ITERATION 
2105 013122 001772 BEQ Ss ZON FIRST PASS 
2106 013124 005237 000662 INC ——ITCNT :BUMP COUNTER 
2107 013130 023737 000662 000566 CMP =—sTTCNT,ITAMT =: SEE_IF DONE ALL 
2108 013136 001764 BEQ Ss :I1F SO: BR 
2109 013140 005726 TST == (SP) + :RESET STACK 
2110 013142 017700 165530 MOV AI TRLP,RO :SET ITERATION POINTER 
2111, 013146 000110 JMP (RO) :G0 ITERATE 
2113 
2114 
2115 ;NON=STANDARD JUMPER HANDLER SUBROUTINE *#*##sx8H«s 
2117 013150 010046 NOST: MOV RO,-(SP) ;+SAVE RO 
2118 013152 012700 000120 MOV —-#120,RO :+SET UP INDEX 
2119 013156 012760 011410 000756 MOV —-#F 26, TSTTBL(RO): +ADJUST SCHEDULAR TEST TABLE 
2120 013164 005720 TST (RO) + 
e121 013166 012760 011410 000756 MOV —-#F 26, TSTIBL (RO) ; OVERLAY TEST LIST 
2123 013174 005720 TST (RO) + 
2104 013176 012760 011646 000756 MOV  —-#FT27, TSTTBL(RO) 
2125 013204 005720 TST (RO) + 
2126 013206 012760 011646 000756 MOV #FT27, TSTTBL (RO) 
2127 013214 005720 TST = (RO) + 
2128 013216 012760 003156 000756 MOV —- #TEND, TSTTBL (RO) 
2129 013224 005720 TST (RQ) + 
2130 013226 012760 000027 000756 MOV «#27, TSTTBL (RO) 
2131 013234 012737 000027 001120 MOV #27, TLAST 
2132 013242 012600 MOV —-(SPS+,RO ;RESTO R0 
2133 013244 000207 RTS PC 
2135 S INITIALIZE SUBROUTINE ***s «8886s 
2136 


CZ 
CZ 


TECBO TMO35-TE16/TU77 BFT 
TECB.P11 


BRERARSR 


013246 
0 
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000040 
900612 


000614 


900646 


; F 
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6524 
65235 
6525 


Or 


INIT1: 
INIT2: 


MT INT: 


NOP 

MOV #40 ,aCS 
MOV DRVN,a@CS 
MOV SLVN,aTC 
RTS PC 


sMAG TAPE INTERRUPT HANDLER*®*txnnnnn 


NOP 
MOV RTRN, (SP) 
RT] 


s INIT 

sSELECT DRIVE 
s;SELECT SLAVE 
RETURN 


sRETURN TO (RTRN) 
:RE TURN 


SEQ 0057 


NIN 


a 
Cy 


on 
Nm 


ee cD cel cece ee cee cee cD ce ceed ce ee ce cD cee ced cee ee ee cee ce ceed ceed ed et ced ced oD mm 
SLES SS Vy eyes oO 


NOPRININININY NINN NIN NY NYIANPO NY NINN NYINANINYI AO NINYININNINyNNI NN NnoNongnynyfvpryry 
SN NIN NN WON OR OS 
Fe Pp Be PS ah” 8 


SLHQOLO L000 ORRHH 


PIPOIMOMPUNQIAINIMYNINY 
aad aad madd 


~ 
© 
wuld 


WN] O OONAOURSW O°” = 


TMO3=T 
P11 


RUS 


~~ ww Se SS es ss oe es ss ss 
AARAAAAAAAAR REE R ERE ER 


OOOOOOCOCOOOOOOOOOO0OO0°O 
RESRARNSRSANSVRENV 


> 
MN 


017746 
16 


E16/TU77 BFT 
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165244 
000200 
000003 
001662 
165212 


000200 
000001 


000176 
177570 


000007 


000176 
014650 


020000 


014070 


014220 
165040 


003316 
013042 
000722 


001764 
003322 


MACY11 30A(1052) 


000550 
000550 


000550 


165106 


0006.74 


TTINT: 


TRAP: 


TRAP1: 


TRAP2: 


TRAPX: 


TRAPKX: 


21-DEC-78 
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:TTY INTERRUPT HANDLER*®*a exe amen 


@aTKB,-(SP) 
#200, (SP) 
#3, (SP) 

1$ 

CHNFLG 

1$ 

aPSw 

a 200 
ate 
ASWREG, SWR 
#177570,SWR 
P VE 


A#SWREG, SWR 
PC, GTSWR 
(SP) + 


;GET CHARACTER 
;CLEAR PARITY BIT 
;BRANCH IF NOT CONTROL C 


; INHIBIT “C IF CHAIN MODE 


;RESTART PROGRAM 
;BRANCH IF NOT “A 


;BRANCH IF HARDWARE SWR IS INVOKED 
; INVOKE HARDWARE SWR 

;SAVE REGISTERS ON THE STACK 

; TYPE ‘HARDWARE SWR IN USE‘ 
;BRANCH IF NOT *G 

; INVOKE SOFTWARE SWR 


;GET SOFTWARE SWITCHES 
;POP CHARACTER OFF THE STACK 


;BUS ADDRESS TRAP HANDLER****eewxne 


JMP 
JMP 


#20000, aSWR 
TRAP2 
HDRF L 


eto 


;SEE IF SHOULD PRINT ERRORS 
;I1F NOT: BR 

;SEE IF DONE HEADER 

;IF SO: BR 

sELSE SET HEADER FLAG 
sPRINT HEADER 


:PRINT ERROR 

;GET ADDRESS THAT CAUSED THE TRAP 
;PRINT ADDRESS OF TRAP 

;SEE IF HALT ON ERROR 

-IF NOT: BR 


sRESET STACK 

;SET SCOPE ADDRESS 

;GO SEE IF SCOPE LOOP 

3SEE IF INITIAL ADDRESS TEST 
-]- NOT: BR 


“ELSE REDO ADDRESS REQUEST 
“RETURN TO TEST 1 


CZTECBO TMO3-TE16/TU77 BFT 


CZTECB.P11 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 
2218 
2219 013546 
2220 013550 
2221 013552 
2222 013556 
2225 013560 
2224 013564 
2225 013572 
2226 013574 
2227 013576 
2228 013602 
2229 013610 
2230 013612 
2231 013616 
2232 013620 
22335 013622 
2234 013630 
2235 013632 
22 13636 
2237 013642 
2238 013644 
2239 013652 
2240 013654 
2241 013656 
2242 013660 
2245 015662 
2244 015664 
2245 013670 
2246 013674 
2247 013676 
2248 013700 
2249 013706 
2250 013710 
2251 013714 
2252 013722 
2253 013724 
2254 013730 
2255 013734 
2256 015736 
2257 013740 


22-NOV- 


010146 
011601 
005037 
005000 


78 07:51 


000652 
014026 
000003 
000200 
000015 


000652 


000025 


017564 
014070 


000177 


017566 
014070 


000060 
014006 
000070 


014006 
000652 


MACY11 30A(1052) 


000602 


000602 


000602 


000602 


000692 


000602 


11$: 


ct: 


3$: 


4$: 


5$: 


21-DEC-78 


H 5 
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SERRE EEE AREER REREREERREEEEREREKEE 


;TTY ENTRY SUBROUTINE: 


: THIS SUBROUTINE IS USED re THE TEST CONDITION 


sENTRY ROUTINE TO READ T 


SE MUST BE TYPED IN OCTAL 
) AND MUST FALL WITHIN THE LIMITS SET BY 
:THE CALLING ROUTINE. 


;1F AN ENTRY IS ILLEGAL OR OUTSIDE THE LIMITS, 
;A QUESTION MARK IS TYPED (?) AND THE RESPONSE 


MAY BE REENTERED. 
RIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
sMAY BE TERM 


ENT 


INATED AT LESS THAN SIX BY TYPING A 
: CARRIAGE RETURN 


SRA REE KEKE RRA EKEEEEEREEKEEREKEKEKKKEE 


R1,-(SP) 
(SP) ,R1 
TEMP 


RO 
PC,TTIN 
#3,TIB 
11$ 


a 200 
#15,TIB 
2$ 


#MSG66 ,R4 


;SAVE CHAR COUNT ON crake 
;RESTORE CHAR COUNT (FOR “U) 
;CLEAR FIRST CHARACTER FLAG 
>GO READ CHARACTER 
;BRANCH IF NOT “C 
RESET 


;RESTART 
ise 6UGF 6G 
;1F NO 


T: BR 
:SEE IF FIRST CHARACTER 


:IF SO: BR 
:ELSE GO LOAD VALUE 
:BRANCH IF NOT CONTROL U 


; TYPE <CR><LF> 


sRESTART 
;BRANCH IF NOT ‘RUBOUT' 
sREMOVE LAST CHARACTER 


sTYPE *\* 


;DECRENENT CHAR RECEIVED COUNT 
;GET NEXT CHARACTER 
; SEE IF CHAR IS LESS THAN 0 
IF NOT: on 

“ELSE GO TO ERROR 

sSEE If CHAR IS GREATER THAN 7 
:IF NOT: BR 
sELSE GO TO ERROR 

;SET FIRST CHARACTER FLAG 


>SHIFT 3 LEFT 


SEQ 0059 


CZTECBO TMO35=TE16/TU77 BFT 
CZTECB.P11 


2 
2301 


MIN 
SS 
WM 


Monona hsNyNoNngNnoNngny 

and med eed aed 

Whe =—|© NO 
cee me ee ee eed eed oe eed ed od od oe od 


013742 
0 


014024 


014026 


ROENVSROKSENSRUR 


70 


22-NOV-78 


005726 
000207 
012704 
004737 
005726 
162716 
000207 


005277 


07:51 
177770 
000602 


014006 


914006 


015367 
014070 


000020 


000045 
014170 


000015 
014170 
000004 
000600 
014170 
000012 
014170 
164 362 
000600 
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000602 


000602 
000602 
000600 


000600 
000600 


000600 


000600 


164354 


6$: 
7$: 


8$: 
9$: 


INER: 


TTIN: 
1$: 


TTOUT: 


1$: 


2$: 


TOG: 


#177770,TIB :STRIP ASCII 
TIB,RO é CHARACTER 
R1 ;SEE IF DONE 
1$ 7 IF NOT: BR 
RO.R2 ;SEE IF EXCEEDED MAXIMUM LIMIT 
7$ ;IF NOT: BR 
TINER ;ELSE GO TO ERROR 
R3,RO0 ;SEE IF BELOW MINIMUM LIMIT 
;IF NOT: BR 
TINER ;ELSE GO TO ERROR 
RO, (R5) ;LOAD VAL 
(SP) + ;POP CHAR COUNT OFF STACK 
PC sEXIT 
ENTRY ERROR SUBROUTINE ***xxxanxne 
4#MSG7,R4 
PC,TTOUT ;PRINT? 
(SP)+ ;POP CHAR COUNT OFF STACK 
#20, (SP) sRESET SP TO START OF VALUE ROUTINE 
C ;REDO VALUE ENTRY 
READ SUBROUTINE ***x*xnnnn 
aTKS 
aTKS 
1$ 
aTKB,TIB 
#200,TIB STRIP PARITY BIT 
TIB,TOB sMOVE CHAR TO OUTPUT BFR 
PC,TOG ;AND TYPE IT 
PC 
OUTPUT SUBROUTINE «®eeennennne 
(R4)+,TOB 
#43,7T0B 
TEX 
#45,1T0B 
PC,TOG 
TTOUT 
#15,7T0B 
PC,TOG 
#4 ,R3 
TOB 
PC,TOG 
;DO FILLERS 
#12,7T0B 
C,70G 
TTOUT 
aTPSs 
OG 
TCS ,@!PB 


SEQ 0060 


4 3 
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~P11 22-NOV-78 07:51 SEO 0061 


MMMM M??NOPENONNy 
SSFER SSE 


RRR 
ON 


sOCTAL OUTPUT SUBROUTINE **t*tkannne 


014206 012737 900001 014436 OCTPE: MOV #1,0FL 
014214 010304 MOV —- R23, R 
014216 000410 BR OC TPO 
014220 005037 014436 OcTP: CLR  OFL ;CLEAR FLAG FOR LEADING ZERO 
014224 010304 OCTPET: MOY -R3,R4 :SEE IF NUMBER IS ZERO 
014226 001004 BNE — OCTPO :IF NOT ZERO: 
014230 004737 014416 JSR —- PC, OCTPG1 ELSE PRINT ZERO 
014234 000137 014360 IMP OC TPS SPACE AND EXIT 
014240 032704 100000 OcTPO: B17  #100000,R4 SEE IF MSD = 1 
014244 001406 BEQ IF NOT: BR 
014246 012704 000001 MOV ILRG 
014252 004737 014374 JSR PC OC TPG ;PRINT 1 
014256 000137 014270 IMP —s- OCTP2 
014262 005004 OcTP1: CLR = R& 
014264 004737 014374 JSR PC,OCTPG ;PRINT 0 
014270 010304 OCTP2: MOV R3.R4 
014272 006004 ROR — Ra 
014274 006004 ROR — RG 
014276 006004 ROR  —R4 ;POSITION DIGIT 
014300 006004 ROR  — RG 
014302 000304 SWAB RG 
004737 014374 JSR —- PC, OC TPG :PRINT DIGIT 2 

014310 010304 MOV —s R34 

12 006 ROR = R 
014314 000304 SWAB RG 
014316 004737 014374 JSR —- PC, OC TPG PRINT DIGIT 3 
014322 010304 MOV —s-_ R34 
014324 006104 ROL sR 
014326 006104 ROL —s_ R4 
014330 000504 SWAB RG 
014332 004737 014374 JSR —- PC, OC TPG PRINT DIGIT 4 
014336 010304 MOV —s-R3_RG 
014340 006 ROR 4 
014342 006004 ROR  —R4 
014344 006004 ROR — R4 
014346 004737 014374 JSR PC, OC TPG 
014352 010304 MOV —s R38. R& 
014354 004737 014374 JSR ——- PC OCTPG :PRINT DIGIT 5 
014360 012737 000240 000600 OCTP3: MOV #240,T0B 
014366 004737 014170 JSR —- PC, TOG ;PRINT SPACE 
014372 000207 RTS —s_ PC TEXIT 
014374 042704 177770 OCTPG: BIC  #177770,R4 
014400 001004 BNE  OCTPGO 
014402 005737 014436 TST ~—OFL 
014406 001001 BNE OC TPGO 
014410 000207 se 
014412 005237 014436 OCTPGO: INC —OFL 
014416 052704 000260 OCTPGT: BIS #260,R4 
014422 019437 000600 MOV = R4, TOB 
014426 004737 014170 JSR —s- PC TOG 
014432 010304 MOV —s- RB. RG 
014434 000 RTS 


p- 
014436 000000 OF i: 0 sFIRST CHAR FLAG 


CZTECBO TMOS-TE16/TU77 BFT 
CZTECB.P11 


014440 
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005037 
0127 


8 07:51 


000600 
000010 


000600 
164076 
000200 
000061 


000060 
000600 


000656 
014440 
000656 
014440 


014624 


014624 


014624 
014624 


000260 
177760 
00 


0006 
014170 
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0G0600 
164060 
164050 


000690 


DOUT: 


1$: 


2$: 
3$: 


DOUTD: 


SNPT: 


SNPG: 


;DATA CHARACTER OUTPUT SUBROUTINE **«xnnannnnn 


CLR TOB 
MOV #10,R4 :SET NUMBER TO PRINT 
VB ~—s R’3, TOB 
TSTB.~—_ aTPS 
L 1$ 
BITB  #200.TOB 
BEQ 2$ 
MOV #061,aTPB 
BR ¢ 
MOV #060,aTPB 
ROL TOB 
DEC R4 
E 1$ 
RTS oc 
MOV TEMP3,R3 
SWAB sé 
JSR PC ,DOUT 
MOV TEMP3,R3 
JSR PC ,DOUT 
RTS PC 
:SERIAL NUMBER PRINT SUBROUTINE ***#xnanee 
MOV R3_R4 
SWAB ORG 
ROR R4 
ROR R4 
ROR R4 
ROR R4 :GET FIRST DIGIT 
JSR PC, SNPG *GO PRINT 
MOV R3. 
SWAB RG :GET SECOND DIGIT 
JSR PC, SNPG *GO PRINT 
MOV R3_R4 
ROR 
ROR R4 
ROR RZ 
ROR R4 :GET THIRD DIGIT 
JSR PC, SNPG =GO PRINT 
MOV R3,R4 “GET FOURTH DIGIT 
JSR PC, SNPG “GO PRINT 
RTS PC sEXIT 
MOV #260,T ;SET BASE = 0 
BIC #177760,R4 “MASK DIGIT 
BIS , TOR “SET ASCI] 
JSR PC,TOG :TYPE DIGIT 
RTS pc RE TURN 


SEQ 0062 
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014650 
014656 
014660 


014744 


014746 


015006 
015010 


022737 
001032 
004737 


22-NOV-78 07 


014746 


0000 
013546 
014770 


000014 


000014 


;ROUTINE TO LOAD NEW ee INTO SWITCHES 
900176 000550 GTSWR: CMP ASWREG, SWR CH 
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IF SOFTWARE SwWR 
“NOT INVOKED 
;SAVE REGISTERS ON THE STACK 


;TTR ROUTINE RETURNS NEW VALUE TO (R5) 
sLIMIT RESPONSE TO 7 CHARS 
;BETWEEN 0 AND 177777 


sRESTORE REGISTERS 


fe phage TO sg 2 grt: * ON THE STACK 


R5 IS SAVED AT 12(SP) 

Ra IS SAVED AT 1 

+ sR3 IS SAVED AT 6(SP) 
R2 IS SAVED AT 4(SP) 

:3R1 IS SAVED AT “ 


(SP) 
PUSH RETURN PC ON THE STACK 
;;RETURN TO CALLER 


fry ite: TO iat) # MeeteP) SAVED ON THE STACK 


«RESTORE :MOV 


BNE 
JSR PC, . SAVE 
MOV SwWR,R4 
JSR PC, TTOUT 
MOV SWR,R3 
JSR PC,OCTPE 
MOV EW,RG 
JSR PC, TTOUT 
MOV RS 
MOV R1 
MOV #177777 .R2 
MOV #0,R3 
JSR PC, TIR 
JSR PC, RESTORE 
RTS PC 
MOV ,~ (SP) 
MOV %4°=(SP) 
MOV %3,-(SP) 
MOV %2,-(SP) 
MOV %1.-(SP) 
MOV %0,-(SP) 
MOV 14(SP) ,=(SP) 
RTS PC 

(SP) 
MOV (SP)+.%0 
MOV (SP) +, %1 
MOV (SP)+.%2 
MOV (SP)+.%3 
MOV (SP) +.%4 
MOV (SP) +-%5 
RTS pC 


;;STORE RETURN PC ON STACK 


7 RETURN 


SEQ 0063 


M 5 
CZTECBO TMO3S-TE16/TU77 BFT MACY11 30A(1052) 21=DEC=78 13:15 PAGE 64 
CZTECB.P11 22-NOV-78 07:51 SEQ 0064 


re sMESSAGE TABLE***** 
464 015012 041445 0305235 020040 MSGI: .ASCII /%CS1 wC BA FC CS2 / 
2465 015020 020040 041527 020040 
015026 020040 041040 020101 
2467 5034 020040 020040 041506 
2468 3042 020040 020040 041440 
2469 015050 0311235 020040 020040 
2470 015056 051504 0200460 020040 ASCII /DS ER TCRA/ 
2471 015064 042440 020122 020040 
2472 015072 020040 041524 021445 
2475 015100 051045 053505 047111 MSG2: .ASCII /%REWIND ERROR-BOT NOT SET WHEN PIP CLEAREDA/ 
2474 015106 020104 051105 047522 
2475 015114 026522 047502 020124 
2476 015122 047516 020124 042523 
2477 0151350 020124 044127 047105 
2478 015136 O 050111 041440 
2479 015144 042514 051101 042105 
2480 015152 3 
2481 015153 045 052045 030115 MSG3: .ASCII ‘%XTMO3-TE16/TU77 BASIC FUNCTION TEST (CZTECBO)%';++8 
2482 015160 026463 042524 0335061 
24835 015166 052057 033525 020067 
2484 015174 040502 0445 020103 
2485 015202 052506 041516 044524 
2486 015210 047117 052040 051505 
2487 015216 020124 041450 052132 
2488 015224 041505 030102 022451 
2489 015232 054524 042520 036040 -ASCI] /TYPE <CR> TO TERMINATE RESPONSE & “*C TO RESTART%A/ 
2490 015240 051103 0076 047524 
2491 015246 052040 051105 044515 
2492 015254 040516 04 051040 
2493 015262 051505 047520 051516 
2494 015270 020105 020046 041536 
2495 015276 052040 020117 042522 
2496 015304 052123 051101 022524 
2497 015312 04 
2498 015313 045 042522 044507 MSG4: .ASCII /%REGISTER START = #/ 
2499 015320 052123 051105 051440 
2500 015326 0405 952122 036440 
2501 015334 021440 
2502 015336 05 041505 047524 MSGS: .ASCII /%VECTOR = #/ 
2503 015344 020122 020075 043 
2504 015351 047105 020104 MSG6: .ASCII /%END OF PASS #/ 
2505 015356 043117 050040 051501 
2506 015364 020123 043 
2507 01536 040 020077 043 MSG7: .ASCII / ? #/ 
2508 015373 045 047520 044523 MSG9: .ASCII /%POSITION ERROR: #/ 
2509 015400 044524 047117 042440 
2510 015406 051122 051117 020072 
2511 015414 043 
2512 015415 045 051511 041440 MSGIOA: .ASCII /%IS CONTROLLER JUMPERED IN NON-STANDARD MODE /<15><12> 
2515 015422 047117 051124 046117 
2514 015430 042514 020122 052512 
2515 015436 050115 051105 042105 
2516 015444 044440 020116 047516 
2517 015452 026516 0521235 047101 


4 


N 5 
BO TMO35-TE16/TU77 BFT MACY11 30A(1052) 21=DEC-78 13:15 PAGE 65 
-P11 22-NOV-78 J7:51 SEQ 0065 


oO 
— 
Vy! 
* 
“I 
WN 
Nm 
= 
© 
Ww 
WOr 
—UVIND 


Het 6TN & 
NERSAS 
® 
~N 
wa) 
+ 
oO 


20105 ASCII /TYPE 2 FOR NON-STANDARD OR CR FOR STANDARD: 4/ 


Wits 

® 

a 

oO 

—s 

RAVER 

+ S&=Soe 9 
WORN ROR 


R 


MSG10: .ASCII /%DRIVE NUMBER: #/ 


SUNRES 
S 
R 
S 
e 


045 0 
020105 05251 


VIMAVIVIVIVIVI UU 
oO 


> 


MSG11: .ASCII /ZSLAVE NUMBER: #/ 


ee el a ed ed ed ed ed ed 
VIVIMIVMIMAVIVIVIVIVIVIV) 


nm 

VI 

Nm 

~N 
elelelelelelelelelelelelealole) 


MUIO 
Nm 
© 
WI 


MSG12: .ASCII /%WRITE ERROR #/ 


MSG13: .ASCII /%READ REVERSE ERROR #/ 


MOO N-— 


04 MSG14: .ASCII /%READ FORWARD ERROR #/ 


MSG15: .ASCII /%WRITE TM ERROR #/ 


MSG15A: .ASCII /% WRITE TM ERROR ON SECOND TM #/ 


/RREVERSE ERROR #/ 


Mr 
OV @=UMONIVYVIWAONny 
R Rito k 
Nm 
R 
= 
— 
aq) 
— } 
Oo 
> 
Ww 
cy 
me: 


043 
053522 MSG17: .ASCII /%FORWARD ERROR #/ 


020122 043 
051116 0201352 MSG20: .ASCII / NRZ #/ 


32 043 
33 260 021440 MSG21: .ASCI] / PE &/ 
042440 050150 035124 MSG22: .ASCII] / EXPT: #/ 


6 
5 051040 053103 035104 MSG23: .ASCI] / RCVD: #/ 
051525 052040 MSG24: .ASCII] /2%BUS TRAP: #/ 
021440 MSG25: .ASCII] /%wC: #/ 
021440 MSG26: .ASCI] /%BA: &/ 


3 

1 

2 021440 MSG27: .ASCII /XR: #/ 

6 0201246 MSG28: .ASCI] /ZINIT DID NO’ CLEAR RH @/ 


: 
BDBDOOOOCO9OOO0O0O00 
ad aed cad ed ced ceed ad cen ed ce eed ed ed 


CZ 
CZ 


TECBO TMO3-TE16/TU77 BFT 
TECB.P11 


On 
“ 
x 


40 
46 


ARALREEREREREL RAT 


aad td aa an coed end end ch al cee ee cen ene cnt cen emt cnt ce 


ARS 


016520 


045 
044530 
044522 


22-NOV-78 07:51 


3 
041523 
051440 


042522 
051440 


020122 


046111 
051124 


051117 


4 
020104 


RARVRRAN 
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020124 
020062 
042522 
054502 
020124 


020124 
042523 


047040 
052105 


047040 
052705 


047516 


046125 


020104 
051040 


043040 


042455 
042040 
043 


MSG29: 


MSG30: 


MSG31: 


MSG32: 


MSG33: 


MSG34: 


MSG35: 


MSG36: 


MSG37: 


MSG38: 


MSG39: 


MSG40: 


MSG41: 


ASTI] 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII] 


ASCII 


ASCII 


/%SC NOT RESET BY INIT #/ 


/%ZTRE NOT RESET BY INIT 4/ 
/%CS2 NOT RESET BY INIT & 


/&2DLT NOT SET &/ 
/%SC NOT SET #/ 
/%ZTRE NOT SET &/ 


/%1R NOT SET BY INIT &/ 
/%Z0R NOT RESET BY INIT &/ 
/%Z0R NOT RESET BY 1 SILO ENTRY #/ 


/%Z0R NOT SET BY SILO FULL #/ 


/%BAD SILO READ #/ 


/%iR NOT RESET BY SILO FULLA/ 


/ZNON~EXIST DRIVEA/ 


SEQ 0066 


CZTECBO TMO5-TE16/TU77 BFT 
CZTECB.P11 


016567 
016574 


064 
017072 


— td wd — 3) I 


WO WO Ww & N=o 
VROURURRORASWERS 


OOOCOOOOOOCOO9OOOOOOO 
a ee Pe Pe Pe ee Pe Pe Pe i PP Pe PP 
“kA A DE PSE PP D> Pw Pp. 


020105 


22-NOV-78 07:51 


047524 
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026516 


051501 
042101 
042520 
042526 


047440 


MSG42: 


MSG43: 


MSG44: 


MSG45: 


MSG46: 


MSG47: 


MSG48: 


MSG49: 


MSG5O: 


MSG51: 


MSGS2: 


MSG53: 


MSG54: 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


/ANON-EXIST SLAVEA/ 


/%SERIAL NO: #/ 


/%ERASE HEAD INOPERATIVEA/ 


/%POSSIBLE ERASE HEAD PROBLEM: / 


/CHECK POLARITYA/ 


/%ZSET-UP WRITE ERRORA/ 


/%SPACE FORWARD ERRORA/ 


/&SPACE REVERSE ERRORA/ 


/*BUFFERED WRITE ERROR#/ 


/%BOT SET AFTER BUFFERED WRITEA/ 


/%2NO BOT FROM READ IN PRESETA&/ 


/%TC INCORRECT &/ 


/AMOL FAILED TO CLEARA/ 


/RARESET SLAVE TO ON LINE BEFORE CONTINUING/ 


SEQ 0067 


D 6 
CZTECBO TMO5-TE16/TU77 BFT MACY11 30A(1052) 21=DEC-78 13:15 PAGE 68 
CZTECB.P11 22-NOV-78 07:51 SEQ 0068 


017236 020116 044514 
041040 


é 
1 
2688 017252 020105 047503 2 
2689 017260 047111 044525 043 
2690 017266 051445 052105 051 
2691 017274 030527 036462 020 
2692 017302 SP LG 054440 05 


ASCII /%SET SW12=1 IF YOU DOT WISH TO REPEAT REWIND OFFLINE TEST#/ 


2700 Mes 044440 042524 035122 MSG56: .ASCII / ITER: #/ 
2702 017370 052045 ge 047516 MSG57: .ASCII /%TM NOT SET#/ 
7404 042445 Bz hee 042510 MSG60: .ASCII /%EITHER TAPE NOT ERASED OR OPI PROBLEM4/ 


2708 0174 
2709 017442 050040 a 046102 
2711 By pean 045 044122 047440 MSG62: .ASCII /%RH ONLY (NO=0,YES=1): 4/ 


026060 
2714 017474 036523 024461 020072 


2716 017503 045 044504 020104 MSG63: .ASCII /%DID NOT AUTO SELECT NRZ&/ 
2717 017510 047516 020124 052501 

2718 017516 047524 051440 046105 

2719 017524 041505 020124 051116 

2720 017532 021532 

2721 017534 042045 042111 047040 MSG64: .ASCII /%DID NOT AUTO SELECT PEA/ 
2722 017542 052117 040440 052125 

2725 017550 020117 042523 042514 

2724 017556 052103 040 021505 

2725 017564 021445 MSG65: .ASCII /%A/ 

2726 017566 021534 MSG66: .ASCII /\&/ 

2727 017570 042445 035122 021440 MSG67: .ASCII /%ER: &/ 

2728 017576 1045 046505 053117 MSG69: .ASCII /%REMOVE TMDP FROM SLAVE TO BE TESTED%A/ 
2729 017 020105 046524 050104 

2730 017612 3040 04 020115 

2731 017620 046123 053101 020105 

2732 017626 047524 041040 020195 

2735 017634 042524 052123 042105 

2734 017642 021445 

2735 017644 044045 051101 053504 MSG70: .ASCII /%HARDWARE SwR IN USE%*/ 
2736 017652 051101 020105 053523 

2737 017660 029122 047111 052440 

2738 017666 042523 021445 


CZTECBO TMOS-TE16/TU77 BFT 
CZTECB.P11 


022445 


22-NOV-78 07:51 


952106 


042524 


043045 
051105 
042524 
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035061 
042104 
047111 


031124 


052125 
035064 


020065 


030524 
020120 
43 


051505 
031461 


052123 


030524 
051501 
052123 


MSFT1: 


MSFT: 


MSFT3: 


MSFT4: 


MSFT5: 


MSF T6: 


MSFT7: 


MSFT10: 


MSFT11: 


MSFT12: 


MSFT13: 


MSFT14: 


MSFT15: 


; TEST HEADERS***** 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASTI! 


ASCII 


ASCII 


/%4FT1:RH ADDRESSING #/ 


/ZKFT2:RH REGISTER BITS TEST &#/ 


/42FT3:RH INITIALIZE TEST #/ 


/%AFT4:RH11 SILO TEST 1 &/ 


/4R4FT5:RH11 SILO TEST 2 &/ 


/Z4F76:RH11 SILO TEST 3 &/ 


/4%FT7:RH11 SILC TEST 4 #/ 


/44FT10:RH11 SILO TEST 5 &/ 


/%4%F711:NOP TESTA@/ 


/RAFTI2:REWINY TESTA/ 


/EZFT13:WRITE-READ TESTA@/ 


IMRFTIG:SPACE TEST&/ 


JAF TIS: ERASE TEST@/ 


SEQ 0069 


CZ 
CZ 


TECBO TMOS-TE16/TU77 BFT 
TECB.P11 


020335 


021004 
021012 
021020 


Ge 
Fz 


NVIW— MMU NO 


042524 


22-NOV-78 07:51 


oOo Oo 

WI Ww 
o-oo 
MOU 


AUR RARU RAGE 
= Nm 
ROAM RO 


win = 1 UO es SY 
MO—NMFLNOO 


MACY11 30A(1052) 


020124 
031124 


026504 


033062 
042525 


MSFT16: 


MSFT17: 


MSFT20: 


MSFT21: 


MSFT 22: 


MSFT23: 


MSFT24: 


MSFT25: 


MSF T26: 


MSFT?7: 


21-DEC-78 13: 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


ASCII 


/ZLKZFT16: 


/4KFT17: 


/4%FT20: 


J%KFTO1: 


SEKFT 22: 


/4KFT23: 


I4KF 126: 


/4&KFT25: 


/2KF 726: 


/“4F 127: 


: © 
15 PAGE 70 


TAPE MARK WRITE=READ TESTA&/ 


TM SPACE TEST #/ 


WRITE CHECK TEST &/ 


ERASE HEAD TESTA/ 


BUFFERED COMMAND TESTA/ 
READ IN PRESET TESTA/ 


AUTO DENSITY SELECT: WRITE-NRZ,READ-PE4/ 


AUTO DENSITY SELECT: WRITE=PE ,READ-NRZ4/ 


SEQUENTIAL TAPE MARK TEST&/ 


REWIND=<OFF LINE TESTa&/ 


SEQ 0070 


CZTECBO TMO35-TE16/TU77 BFT 
CZTECB.P11 


021025 


021050 


021054 
022566 


22-NOV- 


045 
045 
21440 
020040 
021440 
022477 
021054 
000000 
022566 
000000 


000001 


78 07:51 
043536 


053523 
042516 
043 
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043 
036522 


036527 


SCNTG: .ASCII /2*GA/ 
SMSWR: .ASCII /2%SWR= #/ 


SMNEW: .ASCII / NEW= #/ 
SQUEST: .ASCII /?%4/ 


EVEN 
WDATA: QO 

»=.+1510 
RDATA: OQ 

END 


SEQ 0071 


H 6 
CZTECBO TMO3-TE16/TU77 BFT MACY11 30A(1052) 21=DEC-78 13:15 PAGE 73 


CZTECB.P11 22-NOV-78 07:51 CROSS REFERENCE TABLE <= USER SYMBOLS SEQ 0072 
AS 000526 6654 
000514 6604 1061 1922* 2008 
BADDR 000616 69 1316* 13354* 1358 fo 1368* 1375% 1444% 1504% 1585* 1631* 1642* 1647+ 
1663* 1680* 1713*% 17478 #£=1786* $§.1797* 1814*% 1825* 1886* 1922 
000544 6724 945 
BTRP 000574 6874 
BIRP2 000576 6884 
CC 0005 30 6664 
CHNFLG 001662 8194 824% 835 952 1002 1019 1880 2156 
COUNT 000734 7374 
CRCNT 000714 7294 
cS 000520 6624 893* 894* 896 910* 911* 956* 960* 962 1118* 1129 1161* 1163 


1188 1192 1197 1203 1224 1228 1275 1289* 1294* 1298 1404* 1688* 2012 


C7 000570 an 862 895 961 1033 1121 1125 1165 1167 1721* 1893* 1929%  1947* 

DATAO 000746 7464 

DATA 000750 7478 

DATA2 000752 7484 

DATAS 000754 7494 

DATBL 000744 7454 2044 

DAT1 012770 746 20544 

DATIA 012774 20554 2064 2069 

DAT2 013010 747 20634 

DATS 0135014 748 20684 

DAT4 013022 749 20734 J 

32 6674 1070 1162 1196*  1201* 1220* 1233 1272* 1291* 1295* 1296 1297 

DOUT 014440 23734 2390 2392 

DOUTD 014522 2 3884 

DRVN 000612 6964 886 888 894 911 954* 957s 958 960 966 2139 

DRVTP 000564 6834 | 

DS 000522 6634 1338 1722 1731 1758 1764 1801 1829 1901 1933 1948 1950 1952 
1960 1961 2014 

DSAV 7174 1960* 2029 

DSUP 012730 1353 1630 1662 1785 1813 1885 20404 

DSO 012732 20414 

T 0005 36 6694 913 974 

EMADDR 000610 6954  1029* 1050* 1090 1115* 1144 1160* 1185* 1216* 1246 1268* 1287* 1322* 
13540* 7351% %$+%1392% j1502* 1531* 1564* 1626* 1659% 1709* 1744* #=$+%11782% #$=+§$(1810*% #£1839* 
1882* 1983 2185 

a 000524 6644 1906 1964 2016 

ERADD 000650 7114 1058* 1067* 1078* 1093 11e5%° -Vizr*  V155e 1167 1171* 1173*% #$1175* £1190 
1194* 1199%  1207* 1226* 1230*% 1279 1305* 1698* 1700* 1733% #=%1766* #=%+%1773* #41803 
1831* 1903* 1910 

ERCHK 012272 1323 1341 1363 1372 1380 1407 1423 1433 1510 1524 1540 1546 1551 
1573 1592 1606 1637 1644 1649 1670 1672 1686 1730 1793 1821 1846 
1852 1861 1866 19594 

ERPT 012316 1962 19644 

ERPTA 012444 1981 19854 

ERPTA1 012376 1969 973 19754 

ERPTB 012502 1986 19934 

ERPTB1 012514 1994 9 

ERPTC 012544 1997 20024 

ERPTD 012654 1979 20204 

ERPTG 012404 19774 2036 

ERPTX 012664 1976 2021 202 54 


6 
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CZTECB.P11 22-NOV-78 07:51 CROSS REFERENCE TABLE =-=- USER SYMBOLS SEQ 0073 

ERPTXX 012670 20244 

ERPTIA 012476 1990 19924 

ERRP 000626 7024 9&2* 1360* 1370* 1377* 1406* 1422% 1432% %$11509% 1522% 1539%  1545* 1550 
1572* 1590* 1600* 1614% 1636* 1640* 1645* 1669* 1685* 1728* 1792* 1820* 1845* 
1851* 7860* 1985 

ERRP1 0006 30 7034 1993 20335*  2035* 

EXEC 012072 1320 1336 1361 1371 1379 1405 1421 1431 1446 1454 1508 1520 1537 
1543 1549 1570 1589 1604 1635 1643 1648 1668 1671 1677 1684 1691 
tate 1726 1751 1755 1791 1800 1819 1828 1843 1850 1859 1865 1891 

EXECA 012144 1924 19274 

EXECB 012152 1926 19284 

EXECC 012172 19334 1936 1938 

EXECX 012212 1934 19394 

EXECXA 012216 19404 1941 

EXECXK 012222 19424 

EXFL 7 7238 

FC 000516 6614 1449 1456 1485 1692 1694 1696 1921* 1927* 2010 

FCNT 000620 6994 1314* 1332 1356* 1397 1411* 1412 1534* 1584* 1632* 1664* 1675* 1681* 
1689* 1714* 17468 1787* 1815* 1887* 1921 

FT] 64 755 756 | 0294 

FTIA 003316 10344 1039 2195 

FT1B 003322 10364 2200 

FT1x 003334 1037 10404 

FTIXX 003366 1043 10464 

FT10 005022 769 770 12854 1288 

FTI0A 005056 12914 1293 

FTIOER 005142 1299 13054 

FT10xX 005120 1286 13008 1307 

FT10OxxX 005136 1302 13044 

FT11 005156 771 772 13104 1317 

FT12 005274 773 774 13284 1329 

FTI2A 005354 13384 1339 

FT13 0054 775 76 13474 

FT13A 005460 13554 1387 

FT13B 4 =005522 13614 #1365 

FT135C 8=3=—«: OO 13714 13764 

FT13D 005650 13794" @§861382 

FT13xX 005714 1384 1 3884 

FT14 005720 777 778 13914 

FTI14A 005772 13994 1416 

FT14A1 005736 13944 1494 

FT14A2 064 1409 14114 

FT14A3 006106 1413 14154 

FT14B 136 14204 1442 

FTIGEC 006354 1451 14584 

FTIGRE 006362 1450 1457 14604 

FTIGRF 006326 1436 14524 

FTIG4GRR 006264 1426 14434 

FT14RO 006434 1469 14714 

FT14R1 006456 147% 14764 

FTIGR2 006462 1475 14774 

FTI14R3 006534 1462 14884 

FT14X 006544 1410 1425 1430 1435 1439 1489 149; a@ 

FT14xXK 006566 1492 14954 

FT15 006572 779 780 14984 


CZTECBO TMO3=-TE16/TU77 BFT 
CZTECB.P11 22-NOV-78 07:51 
FTISA 006642 15064 
FT1SB 006656 15084 
FT1SxX 006766 1512 
FT16 006772 781 
FTIGA 007024 15334 
FT16B 007030 15344 
FT16X 007210 1554 
FT17 007220 783 
FTI7A 007240 15664 
FT17B 007244 15674 
FT17C 007404 15874 
FT17D 007452 1580 
FT17D1 007470 16014 
FTI17E 007504 16034 
FT17F 007574 1613 
FT17X 007616 1575 
rT2 003372 757 
FT2A 34 10524 
FT2B 003444 1057 
FT2C 35 1066 
FT2D 003520 10744 
FT2E 003550 1077 
FT2ER 003560 1060 
FT2ERA 3610 1089 
FT2ERB 3662 1087 
FT2ERC 003672 1104 
FT2x 003702 1082 
FT20 007622 785 
FT20A 7640 16284 
FT20B 007764 16454 
FT20C 010016 16504 
FT2OxX 010036 1639 
FT21 010046 787 
FT21A 010054 16604 
FT21B 010350 1697 
FT21C 010356 1699 
FT21SC 010204 16784 
FT21X 010370 1693 
T22 010400 789 
FT22A 010454 17174 
FT22B 010474 17224 
FT22K 010574 1732 
FT23 010604 791 
FT23A 010714 17584 
FT23B) = 010734 1759 
FT23C 010764 1765 
FT23x 011020 1743 
FT24 011024 793 
FT24K 011206 1795 
FT25 011216 795 
FT25x 011400 1823 
FT26 011410 797 
FT26X 011636 1849 
FT27 011646 799 
FT27K 012056 1905 
FT27KxK 012066 1879 


15284 


15634 


ee ee eee ee Ee Pe 
© 3O000000000000 SIN 
— = NIOWW—OO™n; 
RRR RRR 


1618 


10854 


16214 


1775 


1774 


J 6 
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CROSS REFERENCE TABLE == USER SYMBOLS 


1911 


18744 


SEQ 0074 


CZTECBO TMO3=-TE16/TU77 BFT 
CZTECB.P11 78 07:51 
FT3 003714 759 
FT3A 003770 1122 
FT 38 00401 1126 
FT3ER 004050 1124 
1702 
FT 3x 00404 1132 
FT4 004134 761 
FTGER 004216 1164 
FTGERA 004226 1166 
FTGERB 004236 1168 
FTGERC 004244 1172 
FT4X 004206 11694 
FTS 004262 763 
FTSA 004 304 1186 
FTSB 004 332 1189 
FTSC 004 354 1193 
FTSD 004404 1198 
FTSE 004416 12034 
FTSX 004444 1159 
FT6 004454 765 
FT6A 004476 1217 
FT6B 004504 12204 
FT6C 004542 1225 
FT6D 004564 1229 
FT6DE 004616 1235 
FT6DEA 004650 12494 
FT6DEB 004714 1244 
FT6DEX 004724 1260 
FT6E 004566 12334 
F T6X 004 1215 
FT7 004726 767 
FT7A 004760 12724 
FT7ER 005 1276 
FT7X 004776 1267 
FUN 000710 7274 
1518* 
1683* 
1929 
GTSWR 014650 935 
HDRFL 000606 6944 
HE RE 003232 1012 
INIT1 013246 1036 
INIT2 013256 21394 
ITAMT 000566 6844 
ITCNT 000662 7164 
ITER 013076 1110 
1805 
ITRLP 000676 7224 
JUMPER 000742 7404 
LTADD 0007 7264 
0005 34 6684 
MSFT1 17672 1029 
MSFT10 020146 1287 
MSFT11 020177 1322 
MSFT12 020217 1340 


oO 


=—MVIVIOCD OVIS 


ee 


ay ee 


MM AWD O OOR YNNNNOAWWIOPPO 
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11154 


1134 
1768 


11584 


11764 
11834 


K 6 
21=DEC-78 13:15 PAGE 76 
1116 


11394 1178 1191 1195 1200 1208 
1804 1832 1904 


1177 

12094 

1269 

1359* 1369* 1376* 1402* 1420* 1428* 
1548* 1567* 1586* 1599* 1612 1615* 
1754* 1790* 1799* 1818* 1827* 1842* 
1092* 1142 1146* 1245 1248* 1980 
1187 1218 1270 1312 1330 1399 
1954 2023 21374 

2106* 2107 = 

1209 1239 1277 1300 1324 1342 
20994 

2110 

1968 


979 984 999« 


1227 


1557 


1231 


1453* 
1641* 
1890 


2182 
1603 


1654 


1280 


1705 


SEQ 0075 


1306 


1745 


1736 
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MSFT13 020242 
MSFT14 020271 
MSFT15 020313 
MSFT16 020335 
MSFT17 020376 
MSFT2 017717 
MSFT20 020424 
MSFT21 020455 
MSFT22 020504 
MSFT23 020541 
MSFT24 020574 
MSFT25 020652 
MSFT26 020730 
MSFT27 020771 
MSFTS 017754 
MSFT4 02 
MSFTS 020036 
MSFT6 O02 
MSFT7 020116 
MSG1 015012 
MSG1O 015555 
MSGIOA 015415 
MSG11 015575 
MSG12 015615 
MSG13 015633 
MSG14 15660 
MSG15 015705 
MSGI5A 015726 
G16 =015765 
MSG17 016005 
MSG2 015100 
MSG20 016025 
SG21 016033 
MSG22. 01604 
MSG23 016050 
MSG24 01 
MSG25 016074 
MSG26 016102 
MSG27 = 016110 
MSG28 016116 
MSG29 016146 
MSG3 015153 
MSG30 016175 
MSG31 016225 
MSG32 = 016255 
MSG33 016273 
MSG34 016310 
MSG355 016326 
MSG36 016353 
MSG37 = 016402 
MSG38 = 016441 
MSG39 016473 
MSG4 015313 
MSG46C 016513 
MSG41 016546 
MSG42 = 016567 
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25354 


25424 
25464 


25554 
25584 


25644 
25664 


25914 
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MSG43 016610 
MSG44 016625 
G45 016655 
MSG466 016732 
G47 016756 
MSG48 17003 
MSG49 017030 
SG5 15336 
MSG5O 017056 
MSG51 =017114 
MSG52 = =017150 
G53. 017167 
MSG54 017214 
MSG56 17360 
MSG57 017370 
MSG6 015351 
MSG60 7404 
G62 0174535 
MSG63 017503 
G64 7534 
MSG65 017564 
MSG66 017566 
MSG67 017570 
MSG69 017576 
MSG7 15367 
MSG70 7644 
MSG9 015373 
MTINT 013276 
NONS TD 740 
NOST 013150 
NRZOF 724 
NXTDRV 002664 
NXTSLV 2736 
OCTP 014220 
OC TPE 14206 
OCTPE1 014224 
OCTPG 014374 
OCTPGO 01441 
OCTPG1 014416 
TPO 014240 
OCTP1 014262 
OCTP2 014270 
OCTPS 014360 
OF L 014436 
OPDYX 000640 
PATRN 000720 
PCNTR 000730 
PEXFL 000702 
PFLG 000644 
PSW 000546 
RCNT 000624 
RDATA 022566 
RDSW 0007 
RDYDxX 0006 
REGS 000572 
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ARNUWOODS 


ee ee ee ee eee 
~N 
NS 
WOSMIWWWGN 


1636 
26544 


21454 


4B« 


. 
84 3 


1792 


904 
2007 


2341 


1401 
860 


1820 


925 
2009 


2346 


26504 


1007 
2011 


2351 
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1254 
2013 


2353 


1569* 
1884* 


1381* 
2046 
1529» 


1258 
2015 


2357# 


1939 
2042 


1386* 
28634 
1568* 


1482 
2017 


1395* 


1725* 


1487 
2019 


1415* 


1931 


2001 
23164 


1507* 


2190 
2430 


15138 


SEQ 0077 


23194 


1563* 
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RFD 000634 705#@ = 1418* = 1441" = 1455 
RHOF 000726 73H «924 926 =: 1301 
RHTF 000722 732# = B72 «10462 -1044% = 2197 
RH17F 000604 6934 940 39946 =21158 = 1183) 1214S «1266 ~——s«*1285 
RRD 000632 2064 1417* 1440% 1448 
RTRN 000646 710# 2146 
012224 1355 1396S «1503's «1516S s«1533. «1566 = s«‘1628-«~=S «(1660S s(«*1674.—Sss«*1679'=S's«*d1710='ié‘2783~t*é‘ 7G; 
1811 1824 1841 1856 1883 19464 
SAV 71 
SAV2 000670 7198 
SAV3. 000672 720 
SCHN 001710 825 8274 
SCNT 000642 7084 1419% 1429% 1438* 1601*  1858* 1927 
SCOLP 000674 721# 1059% 1068* 1079 1116% 1177% 1186* 1217* 1269% 1288* 1311% 1329" 1362 
1701* 1734" 1767* 1774% 1894* 2091 2095 2195s 
SCOPE 013042 1106 1153 20864 2196 
SERFL 000712 7284 «81408 14246 1434 1511 1574 1593 1607 1638 #1794 1822 1848 1854 
863 1868 «= 1959 1977» = 2031 
SERNUM 000562 6828 
SLVN 000614 697# 903 905 912 955" 964% 970% 971 973 1%2 2160 
SN 000540 6704 920 
14624 2403 2412 2414-24164 
T 014546 921 23978 
START 642 
STFLG 000704 725 = 9'39x = -989 994s 
STMSK 000660 abet 48B1* 1403" 1499" 1523" 1538+ 1544s 1571* —1591* 1605" 1729" = 1B44* = 19678 
© 
STSCD 3122 951 9944 
002124 B63" B66 
STOB 764 839" 2199 
ST} 002146 B69" B77 
STIA 002166 8 74H 1045 
ST2 2344 897 901" 917 
ST3 002454 914 9184 | 
S14 002540 646 9334 
SwWR 000550 6774 ~=—-811 815* 823% 949 986 991 1021 1086 1103 1140 1149 1243 
1259 1461 1488 1878 1978 1996 2020 2087 2100 2163 2165" 2172 2180 
4) eee * eee +, ee 
SWREG 000176 6364 = 815 +4 Bee ot eee she ae, 
TC 000542 6714 912* 973% 1331* 1770 19198 1989 2018 2140s 
TEMPST 000732 736M 
TEMP1 000652 712# =©1582e 1595" 2221% 2230 2254s 
TEMP2 000654 7134 
TEMPS 000656 714# 2388 2391 
TEND 003156 801 10024 1303 2128 
TENDX 003254 1020 1022 102m 
TEX 014204 2295 23138 
TIB 600602 692" 22246 2228 2233 2238 = 2248._—S 2251 = 2258 = 2259S 2285* = 228 ~—s 2287 
TINER 014006 2250 = 2253 264 267 Pat 
I 000554 679# 2152 = 2285 
TKS 552 6784 938% 2282" 2283 
TLAST 001120 802# 995 21318 
TMCHK 012672 1541 1547 1552 1576 1609 18467 1853 186 1867 20294 
TOB 6914 (867 2287* 2293 2296 2296 23008 2303 23078 2312 23548 2365" 23730 
2375* 2378 «= 9383" «= 4168 3 18s 
TOG 014170 22 2298 2301 


2306 2308_-~=— 2310) = 2371s 2855s HKHSC*«iKT'D 
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CZTECB.P11 
TPB 000560 
TPS 000556 
TRAP =s-_—« 013432 
TRAPX 013514 
TRAPXX 013542 
TRAP) 13466 
TRAP2 013504 
TSCD 002554 
TSCDA 003014 
TSCDO 302 
TSCD1 003032 
TSCD2 003070 
TSCD3 3102 
TSRH 003016 
TSTTBL 000756 
TTIN 014026 
TTINT 013304 
TTOUT 014070 
TTR 013546 
UDES 000716 
VECT 0005 70 
WC 000512 
WCNT 000622 
WDATA 021054 
SCNTG 021025 
003164 
SENDAD 003222 
SMNEW 21040 
SMSWR 021031 
021050 
$SVPC = 000764 
° = 022570 
-RESTO 014770 
-SAVE 014746 
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SO) 
WNWWOOCOO\WOOrD 
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a * 


WR SUTIN 
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2380* 
2376 


6204 


24528 
C4424 


2382* 


622k 


6244 


628A 


6354 


6414 


1304 
1834 


2130* 


916 
1256 
2005 


1493* 
1746* 


1583* 
1786 


6454 


6504 


1665* 
1886 


6554 


1388 


8054 


SEQ 0079 


1495 


1091 
1477 
2236 


1555* 
1826* 


1682* 
28614 


28604 
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ERRORS DETECTED: 0 
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RUN-TIME: 4 6 1 SECONDS 
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